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FOREWORD 


Among  the  responsibilities  assigned  to  the  Office  of  the  Manager, 
National  Communications  System,  is  the  management  of  the  Federal  Tele¬ 
communication  Standards  Program  which  is  an  element  of  the  overall  GSA 
Federal  Standardization  Program.  Under  this  program,  the  NCS,  with 
the  assistance  of  the  Federal  Telecommunication  Standards  Committee, 
identifies,  develops,  and  coordinates  proposed  Federal  Standards  which 
either  contribute  to  the  interoperability  of  functionally  similar  Federal 
telecommunication  systems  or  to  the  achievement  of  a  compatible  and 
efficient  interface  between  computer  and  telecommunication  systems. 

In  developing  and  coordinating  these  standards  a  considerable  amount 
of  effort  is  expended  in  initiating  and  pursuing  joint  standards  develop¬ 
ment  efforts  with  appropriate  technical  committees  of  the  Electronic 
Industries  Association,  the  American  National  Standards  Institute,  the 
International  Organization  for  Standardization,  and  the  International 
Telegraph  and  Telephone  Consultative  Committee  of  the  International 
Telecommunication  Union.  This  Technical  Information  Bulletin  presents 
an  overview  of  an  effort  which  is  contributing  to  the  development  of 
compatible  Federal,  national,  and  international  standards  in  the  area 
of  digital  facsimile  standards.  It  has  been  prepared  to  inform  interested 
Federal  activities  of  the  progress  of  these  efforts.  Any  comments,  inputs 
or  statements  of  requirements  which  could  assist  in  the  advancement  of  this 
work  are  welcome  and  should  be  addressed  to: 

Office  of  the  Manager 
National  Communications  System 
ATTN:  NCS-TS 
Washington,  D.C.  20305 
(202)  692-2124 
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1.0  INTRODUCTION 


Several  organizations  have  submitted  contributions  to  the  CCITT 
(see  Appendices  A,  B,  and  References  U,  5,  9,  10,  11)  describing  two- 
dimensional  coding  techniques  for  selection  of  a  standard  compression 
algorithm  for  advanced  digital*  facsimile  systems.  At  the  December  1978 
meeting  in  Geneva,  a  working  party  of  CCITT  Study  Group  XIV  adopted  speci¬ 
fic  procedures  to  measure  compression  and  error  sensitivity  so  that  can¬ 
didate  coding  techniques  may  be  compared  on  a  meaningful  basis.  These 
definitions  and  procedures  are  outlined  in  references  1  and  2.  The 
National  Communications  System  of  the  U.  S.  Government  has  issued  three 
contracts  to  Delta  Information  Systems,  Inc.  to  evaluate  seven  candidate 
two-dimensional  coding  techniques  using  the  criteria  recommended  by  the 
CCITT. 

i 

In  the  first  contract  (Purchase  Order  DCA-79-M-0105) ,  a  basic 
computer  program  was  developed  to  measure  the  compression  and  error 
sensitivity  of  digital  facsimile  coding  techniques.  To  validate  this 
program,  the  Moaified-Huffman  code,  recommended  as  the  one -dimensional 
standard  for  Group  3  machines,  was  tested  and  simulated  on  the  model. 

The  computer  program  and  work  accomplished  on  this  initial  contract 
is  described  in  a  Final  Report  issued  August  10,  1979  (see  Reference  3). 

In  the  second  contract,  the  validated  computer  model  was  used  to 
measure  the  compression  and  error  sensitivity  of  five  two-dimensional 
coding  techniques.  The  five  coding  algorithms  which  were  selected  for 
simulation  were  proposed  by  Japan,  3M,  IBM,  XEROX,  and  AT&T.  These  coding 
techniques  were  selected  simply  because  no  other  contributions  had  been 
submitted  to  the  CCITT  when  this  NCS  measurement  contract  was  initiated. 
Contributions  were  subsequently  submitted  to  the  CCITT  by  the  Federal 


Republic  of  Germany  and  the  British  Post  Office.  The  NCS  organization 
issued  a  third  contract  (Purchase  Order  DCA  100-79-M-0209)  to  Delta 
Information  Systems  to  measure  the  compression  and  error  sensitivity 
of  these  latter  two  coding  techniques  and  the  results  of  this  investi¬ 
gation  are  included  in  this  document. 

The  measurement  parameters  which  were  involved  in  this  program  are 
summarized  in  Section  2.0  of  this  report.  Section  3.0  describes  the 
hierarchy  and  interrelationship  of  computer  programs  which  are  used  in 
the  measurement  process.  In  many  instances,  the  proposed  operation  of 
the  coding  algorithm  was  not  totally  defined  when  a  transmission  error 
was  encountered.  Section  U.O  describes  the  generalized  error  detection 
and  correction  procedure  which  was  employed.  As  the  computer  programs 
were  prepared  for  each  algorithm,  certain  assumptions  were  maue  for  each 
coding  technique,  particularly  in  the  area  of  error  detection  and  correction. 
These  assumptions  made  for  each  individual  coding  technique  are  documented 
in  Section  5.0. 

Five  separate  computer  runs  were  implemented  for  each  algorithm 
at  different  combinations  of  test  document,  vertical  resolution  and 
K-f actor.  Section  6.0  summarizes  the  results  of  these  measurements  in 
terms  of  compression  data,  error  sensitivity  data,  and  coded  line  length 
statistics.  Section  7.0  contains  a  list  of  reference  documents  related 
to  the  contract. 

The  CCITT  contributions  describing  the  two  coding  algorithms  have 
been  included  in  Appendices  A  and  B  for  reference  purposes.  Appendix  C 
contains  the  program  code  listings  for  those  subroutines  which  are  common 
to  all  algorithms,  e.g.  data  packing,  data  unpacking,  error  measurement, 
etc.  Appendices  D,  E,  F,  and  G  contain  the  flow  charts  and  the  listing 
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of  the  code  for  the  computer  program  for  the  two  algorithms  which  were 
investigated. 

Delta  Information  Systems  wishes  to  acknowledge  the  Contracting 
Officer's  Technical  Representative,  Dennis  Bodson,  for  the  extraordinary 
level  of  support  he  has  provided  during  the  course  of  this  contract. 

The  assistance  of  Marla  Thomas,  from  the  DCEC  computer  facility,  is  also 
greatly  appreciated. 
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2.0  MEASUREMENT  PARAMETERS 

In  this  section,  the  various  parameters  involved  in  the  measurement 
of  compression  and  error  sensitivity  will  be  summarized.  In  general, 
Stucfy  Group  XIV  of  the  CCITT  agreed  upon  these  measurement  parameters 
at  the  general  meeting  held  in  Geneva  in  December  1978  (see  Reference  2) 

2.1  Test  Documents 

The  test  documents  were  chosen  from  the  eight  CCITT  test  documents 
(see  Figure  2-1)  since  they  have  been  widely  used  by  data  compression 
experimenters  in  the  past.  Documents  numbered  1,  h,  5,  and  7  (see 
Figures  2-2,  2-3,  2-L,  and  2-5  respectively)  were  selected  as  the 
standard  test  images  since  these  were  considered  most  representa¬ 
tive  of  documents  to  be  transmitted. 

The  French  PTT  Administration  has  scanned  the  eight  CCITT  documents 
at  the  high  resolution  specified  for  Group  3  machines — 7.7  lines/mm. 

They  have  also  quantized  each  pel  to  be  either  black  or  white  and 
stored  the  resultant  image  on  magnetic  tape.  This  tape  was  used  as 
the  source  of  input  documents  in  this  simulation  program.  Appendix  B 
of  Reference  3  describes  the  format  of  the  test  document  magnetic  tape 
supplied  by  the  French  PTT. 

2.2  Resolution 

It  was  agreed  that  measurements  would  be  performed  at  both 
standard  resolution  (3.85  lines/mm.)  and  high  resolution  (7.7  lines/mm.) 
In  the  high  resolution  case,  all  lines  on  the  input  test  documents 
shall  be  used.  In  standard  resolution  tests,  every  odd  scan  line 
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Our  iUf.  J50/PJC/EAC 


18th  January,  1972. 


Dr.  P.S.  Cundall, 
Mining  Surveys  Led., 
Holroyd  Road, 
Reading, 

Berks. 


Dear  Pete, 

Permic  me  to  introduce  you  to  the  facility  of  facsimile 
transmission. 

In  facsimile  a  photocell  is  caused  to  perform  a  raster  scan  over 
the  subject  copy.  The  variations  of  print  density  on  the  document 
cause  the  photocell  to  generate  an  analogous  electrical  video  signal. 
This  signal  is  used  to  modulate  a  carrier,  which  is  transmitted  to  a 
remote  destination  over  a  radio  or  cable  communications  link. 

At  the  remote  terminal,  demodulation  reconstructs  the  video 
signal,  which  is  used  to  modulate  the  density  of  print  produced  by  a 
printing  device.  This  device  is  scanning  in  a  raster  scan  synchronised 
with  that  at  the  transmitting  terminal.  As  a  result,  a  facsimile 
copy  of  the  subject  document  is  produced. 

Probably  you  have  uses  for  this  facility  in  your  organisation. 

Yours  sincerely, 

fjj. 

P.J.  CROSS 

Group  Leader  -  Facsimile  Research 


Figure  2-2  CCITT  Test  Document  No.  1 


R*ft«t«re4  in  Enfland: 
Rafiatarad  Office .  ttO  Vicar* 


No.  2038 

Lana,  Ilford.  Zmii, 
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L'ordrede  lancement  et  de  realisation  daa  applications  fait  l'objet  da  decisions  au  plua  iaut 
nlvaau  da  la  Direction  Generals  dea  Telecommunications.  Q  n'eat  certea  paa  question  de 
conatrulra  ce  ay  a  time  Integra  "an  bloc"  mala  blan  au  contralre  da  procedar  par  etapaa,  par 
pallara  auccaaalfa.  Cartainaa  appllcationa,  dont  la  rentabllite  ne  pourra  etre  aaaurea.ne 
aaront  paa  antreprlaaa.  Actuellement,  aur  trenta  appllcationa  qui  ont  pu  etre  globalemant 
definlaa.  stxen  aont  au  atade  de  Sexploitation,  six  autrea  ae  sont  vu  donner  la  priorite  pour 
leur  realisation. 

Cheque  application  eat  confiee  4  un  "chef  de  projet" ,  reaponsable  successivement  de  sa 
conception,  de  son  analyse- progr  animation  et  de  sa  mise  en  oeuvre  dans  une  region-pilote. 
La  generalisation  ulterleure  de  l'application  realises  dans  cette  region-pilote  depend  dea 
resultats  obtenus  et  fait  l'objet  d'une  decision  de  la  Direction  Cenerale.  Neanmoina,  le 
chef  da  projet  doit  dea  la  depart  considerer  que  ton  activite  a  une  vocation  nationale  done 
refuser  tout  particularisms  regional.  II  eat  aide  d'une  equipe  d'analystes-programmeura 
et  entoure  d'un  "groups  de  conception"  charge  de  redlger  le  document  de  "definition  dea 
objectif s  globaux"  puis  le  "cahier  dea  charges"  de  l'application,  qui  sont  adressds  pour  avia 
4  tous  lea  services  utillsateurs  potentiels  et  aux  chefs  de  projet  des  autrea  appllcationa. 
Le  groups  de  conception  comprend  6  4  10  peraonnes  representant  lea  services  lea  plua 
divers  concernds  par  le  projet,et  comporte  obligatoirement  un  bon  analyste  attache  4  l’ap- 
pllcatlon. 


n  -  L'IMPLANTATIQN  GEOGRAPHIQUE  D'UN  RESEAU  INFORMATIQUE  PERFORMANT 

L' organisation  de  l'entreprise  franqaise  dea  telecommunications  repose  sur  l'existence  de 
20  regions.  Des  calculateurs  ont  ete  implantes  dans  le  passe  au  moins  dans  toutes  les  plus 
lmportantes.  Ontrouve  alnsi  des  machines  Bull  Gamma  30  4  Lyon  et  Marseille,  des  GE  425 
4  Lilia,  Bordeaux,  Toulouse  et  Montpellier,  un  GE  437  4  Massy,  enfln  quelques  machines 
Bull  300  TI  4  programmes  cables  etaient  recemment  ou  sont  encore  en  service  dans  les 
regions  de  Nancy.  Nantes,  Limoges,  Poitiers  et  Rouen  ;  ce  pare  est  essentiellement  utilise 
pour  la  comptabllite  teidphonique. 

Al'avenlr,  alia  plupart  dee  fichiers  necessaires  aux  applications  decrites  plus  haut  peuvent 
•tre  g*r«s  en  temps  differs,  un  certain  nombre  d'entre  eux  devront  nScessairement  etre  ac- 
cesslblea,  voire  mle  4  jour  en  temps  reel  :  par  ml  ces  derniers  le  fichier  commercial  des 
abonnds,  le  flchler  dee  renseignements,  le  fichier  des  circuits,  le  fichier  technique  des 
abounds  contlendront  des  quantitds  considerables  d' informations. 

La  volume  total  de  caraetdries  4  gdrer  en  phase  finale  sur  un  ordinateur  ayant  en  charge 
quelques  500  000  abonnSs  a  ete  estimS  4  un  milliard  de  caractdres  au  moins.  Au  moins  le 
tiers  das  donnSea  seront  concernSea  par  des  traitements  en  temps  reel. 

Aucun  des  calculateurs  dnumerSa  plua  haut  ne  permettait  d’envisager  de  tels  traitements. 
L'intdgratlon  progressive  de  toutes  les  applications  suppose  la  creation  d'un  support  commun 
pour  toutas  lea  informationa,  une  veritable  "Banque  de  donnees",  repartie  sur  des  moyens 
detraitement  natlonaux  et  regionaux,  et  qui  devra  rester  alimcntde,  mise  4  jour  en  perma¬ 
nence,  4  partlr  de  la  base  de  l'entreprise,  c'est-4-dire  les  chantiers,  les  magasins,  les 
gut  Chet  a  des  services  d'abonnemenl,  lea  services  de  personnel  etc. 

L'dtude  dee  diffdrents  fichiers  4  constituer  a  done  permis  de  definir  les  principals  carac- 
tgrlatiques  du  rdseau  d'ordinateurs  nouveaux  4  mettre  en  place  pour  aborder  la  realisation 
du  systdme  informatif.  L'obligation  de  faire  appel  a  des  ordinateurs  de  troisifcme  generation, 
trka  pulssantset  dotes  de  volumlneuses  memoires  de  masse,  a  conduit  4  en  reduire  substan- 
tiellemcnt  le  nombre. 

L'lmplantatlon  de  sept  centres  de  calcul  interreglonaux  constituera  un  compromis  entre  : 
d'une  partle  desir  de  reduire  le  coat  economique  de  l'ensemble,  de  faciliter  la  coordination 
des  dqulpes  d'informatlclens;  et  d'autre  part  le  refua  de  creer  des  centres  trop  importants 
dlfflciies  4  g#rer  et  4  dlrlger.et  poeant  das  probl4mes  ddlicats  de  security.  Le  regroupe- 
ment  des  traitements  relatifs  4  pluaieurs  regions  sur  chacun  de  ces  sept  centres  permettra 
de  laur  donner  une  taille  rtlativement  homogtnd .  Cheque  centre  "gurera"  environ  un  mil¬ 
lion  d'abonnes  4  la  fin  du  Vieme  Plan. 

La  mise  en  place  de  ces  centres  a  debute  au  debut  de  l'annde  197  l  :  un  ordinateur  IRIS  50  de 
la  Compagnie  Internationale  pour  l'lnformatique  a.  ete  installs  4  Toulouse  en  fevrier  ;  la 
tnlme  machine  vlent  d'etre  mise  en  service  au  centre  de  calcul  interregional  de  Bordeaux. 


figure  2-3  CCXTt  Test  Document  Ho.  U 
Photo  n*  1  -  Document  trfcs  dense  lettre  1 ,  5mm  de  haut  - 

Restitution  photo  n*  9 


Cela  est  d'autant  plus  valable  que  T  A/  est  plus 
grand.  A  cct  egard  la  figure  2  represente  la  vraie  eourbe 
donnant  \<p(J )|  en  fonctton  de /pour  les  valeurs  nume- 
riques  indiquees  page  precedents. 
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Dans  ce  cas,  le  filtre  adapte  pourra  etre  consutue, 
conformement  a  la  figure  3,  par  la  cascade  : 

—  d'un  filtre  passe-bande  de  transfer!  unite  pour 
/o  </</0-t-A(  et  de  transfert  quasi  nul  pour 
/  <  /0  et  /  >  /„  +  A  f.  filtre  ne  modifiant  pas  la  phase 
des  composants  le  traversant  ; 


ft c.  ) 


—  filtre  suivi  d'une  ligne  a  retard  (LAR)  disper¬ 
sive  ayant  un  temps  de  propagation  de  groupe  TK 
decroissant  lineairement  avec  la  frequence  f  suivant 
I 'expression  : 


r„ 


T„ +(/„-/) 


T_ 

A/ 


(avec  T0  >  T) 


(voir  fig.  4). 


Fn.  4 


telle  ligne  4  retard  est  donnee  par  : 
V  -  -2*  Tk  df 


Et  cette  phase  est  bien  I 'oppose  de  /#/), 

4  un  dephasage  constant  pres  (sans  importance) 
et  4  un  retard  T0  pres  (inevitable). 

Un  signal  utile  5(f)  traversant  un  tel  filtre  adapte 
donne  4  la  sortie  (a  un  retard  T0  pris  et  a  un  depha- 
sage  pres  de  la  porteuse)  un  signal  dont  la  transformee 
de  Fourier  est  reelle,  constante  entre  /„  et  /„  + A/, 
et  nulle  de  part  et  d'autre  de  f0  et  de  /0  +  A/,  c’est- 
4 -dire  un  signal  de  frequence  porteuse  /„  +  A//2  et 
dont  I'enveloppe  a  la  forme  indiqude  k  la  figure  5, 
oil  Ton  a  represente  simulianemem  le  signal  5(f) 
et  le  signal  5,(r)  correspondant  obtenu  k  la  sortie 
du  filtre  adapte.  On  comprend  le  nom  de  recepteur 
k  compression  d’impulsion  donne  a  ce  genre  de 
filtre  adapte  :  la  «  largeur  »  (a  3  dB)  du  signal  corn- 
prime  etant  egale  4  1/Af,  le  rapport  de  compression 

T 

est  de - -  TAf 

1/A/ 


On  saisit  physiquement  le  phenomene  de  com¬ 
pression  en  realisant  que  lorsque  le  signal  5(f)  entre 
dam  la  ligne  k  retard  (LAR)  la  frequence  qui  entre 
U  premiere  4  I'instant  0  est  la  frequence  basse  /0, 
qui  met  un  temps  T„  pour  traverser.  La  frequence/ 

T 

entre  4  I'instant  f  —  (/  — /0)  JL  et  elle  met  un  temps 

T 

Tt-(J  -f0)  —  pour  traverser,  ce  qui  la  fait  ressortir 

A f 

4  I’instant  f.  etafetnem.  Ainsi  done,  le  sicnal  S(t\ 
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should  be  used.  Figure  2-6  is  a  copy  of  the  French  PTT  Test  Document 
No.  U  scanned  with  7.7  lines/mm.  resolution.  Figure  2-7  is  a  copy 
of  the  same  document  where  the  even  scan  lines  have  been  replaced  with 
the  line  above.  Therefore,  this  represents  a  document  in  which  the 
vertical  resolution  is  3.85  lines/mm. 

2.3  Minimum  Scan  Line  Time  (MSLT) 

The  standard  MSLT  to  be  used  in  the  measurement  program  will  be 
5,  10,  and  20  ms.  with  EDL-code  and  0  ms.  without  QOL-code.  It  was 
later  clarified  in  a  memo  from  the  chairman  of  the  Working  Committee 
(see  Reference  7)  that  if,  for  reasons  of  test  economy,  only  one  value 
of  MSLT  can  be  used  in  the  test  program,  that  value  shall  be  20  ms. 

2.U  Transmission  Bit  Rate 

The  standard  transmission  bit  rate  is  hdOO  bits/sec. 

2.5  Measurement  of  Compression 

Two  standard  measures  of  compression  have  been  established — 

(l)  number  of  coded  bits  (2)  Compression  Factor.  The  number  of 
coded  bits  is  the  number  of  bits  required  to  transmit  a  document , 
including  all  overhead  bits  such  as  End  of  Line  (EOL)  and  Fill  bits. 
The  Compression  Factor  is  computed  by  dividing  the  total  number  of 
picture  elements  (pels)  per  test  document  by  the  number  of  coded 
bits.  It  was  further  agreed  that  the  Compression  Factor  and  coded 
bits  should  be  computed  for  two  different  conditions — with  overhead 
and  without  overhead.  The  measurement  with  overhead  applies  to  the 
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L'ordndt  lance  ment  et  de  realisation  das  applications  fait  l'objet  da  decisions  au  plus  haut 
nivaau  da  la  Direction  Gdndral*  daa  T  SI  doom  muni  cation  a.  0  n'eat  cartas  pas  question  de 
conatrulre  ce  systems  intdgrd  "an  bloc"  mala  bian  au  cootralre  da  proedder  par  Stapes,  par 
pallors  succeasifs.  Cartalnas  applications,  dont  la  rantabilitS  na  pourra  dtre  assurSa,  r» 
aaront  paa  entre prises,  Actuallamant,  aur  trante  applications  qul  ont  pu  Stra  globalamant 
ddfiniaa,  six  an  sent  au  stade  de  Sexploitation,  six  autras  se  sent  vu  donnar  la  prloritS  pour 
laur  realisation . 

Cheque  application  eat  confide  A  un  "chef  de  projet",  responsable  succesaivament  de  sa 
conception,  da  son  analyse -pro gr animation  at  da  sa  miaa  an  oeuvre  dans  una  rdglon- pilots. 
La  gdndralisation  ultdrieura  da  l'applicatlon  realises  dans  catta  region- pilots  depend  das 
rdsultata  obtanus  at  fait  l'objet  d'una  decision  da  la  Direction  Gdndrale.  Ndanmolns.  la 
chef  de  projet  dolt  dde  le  depart  canaiddrer  qua  son  activitd  a  una  vocation  natlonale  done 
refuser  tout  particularisms  regional.  □  eat  aide  d'una  equips  d'analyates-programrneurs 
at  antourd  d'un  "groups  da  conception"-  charge  do  rddigar  la  document  de  "definition  daa 
objectifs  globaux"  pula  la  "cahiar  das  charges"  da  1' application,  qui  sont  adresads  pour  avis 
A  toua  lea  services  utilisataurs  potentials  at  aux  chefs  de  projet  dea  autre  a  applicationa. 
Le  groups  de  conception  comprend  6  k  10  porsonnea  reprdsantant  lea  services  lea  plus 
divers  concernds  par  le  projet»et  comports  obllgatoiremant  un  bon  analysts  attache  k  rap- 
plication. 

II  -  L'IMPLANTATION  GEOGRAPHIQUE  D'UN  RESEAU  INFORMATIQUE  PERFORMANT 

L 'organisation  de  l'entrepriae  franqaise  daa  telecommunications  repose  aur  1' existence  de 
20  region  a.  Dea  calculateurs  ont  dtd  lmplantda  dans  le  paasd  au  molna  dana  toutes  lea  plus 
im portents s.  Ontrouve  ainal  daa  machines  Bull  Gamma  30  k  Lyon  at  Marseille,  des  GE  425 
*  Lille,  Bordeaux,  Toulouse  at  Montpellier,  un  GE  43?  A  Massy,  enfln  quelques  machines 
Bull  300  T1  k  programmes  ciblds  dtaient  rdcammant  ou  sont  encore  an  aervice  dans  lea 
regions  da  Nancy.  Nantaa,  Limoges,  Poitiers  at  Rouen  ;  ca  pare  ast  aaaentlellement  utilise 
pour  la  comptabilltd  tdldphonique. 

A l'avanir,  alia  plupart  des  flchiers  ndcesaairaa  aux  applicationa  ddcritea  plus  haut  peuvent 
•tra  gdrda  an  temps  differ  d,  un  certain  nombre  d'entra  aux  devront  ndcasaairement  etre  ac- 
cesaiblea,  voire  mia  k  jour  an  tampa  reel  :  parmi  ces  demlers  le  fichler  commercial  des 
abonnds,  le  fichler  des  rerraelgncments,  la  fichier  des  circuits,  le  fichier  technique  des 
abonnda  contlandront  des  quantitds  considerables  d'lnformations. 

La  volume  total  da  caractditos  k  gdrar  an  phase  finale  sur  un  ordlnateur  ayant  en  charge 
quelques  500  000  abonnds  a  dtd  estimd  k  un  milliard  da  caractdres  au  moins.  Au  moins  le 
tiers  des  donndes  seront  concemdes  par  des  traitamants  en  temps  rdel. 

Aucun  dea  calculateurs  dnumdrds  plus  haut  ne  permettait  d'envisager  de  tela  traitements. 
L'lntdgratlon  progressive  de  toutes  lea  applications  suppose  la  creation  d'un  support  commun 
pour  toutes  las  informations,  una  veritable  "B&nque  de  donndes".  rdpartle  sur  des  moyens 
de  trait  ament  nation  aux  at  rdgionaux,  et  qui  devra  raster  alimentde,  mise  k  jour  en  perma¬ 
nence,  k  partir  da  la  base  da  1'antreprlse,  c'eat-A-dire  lea  chantiers,  les  msgasins,  les 
gulchats  des  services  d'abonnement,  lea  services  de  personnel  etc. 

L'dtude  das  diffdrants  flchiers  k  constltuer  a  done  permis  de  ddfinir  les  principales  carac- 
tdrlatiquas  du  rdaaau  d'ordlnataurs  nouveaux  k  mettre  en  place  pour  aborder  la  realisation 
du  systdma  informatif.  L 'obligation  de  fairs  appel  k  des  ordinateurs  de  troisidme  generation, 
trdspulasantset  dotes  de  voluminous# s  mdmoires  de  masse,  a  conduit  k  en  rddulre  sub b tan  - 
tiallamant  la  nombre. 

L 'implantation  da  sept  centres  de  calcul  interrdglonaux  constituera  un  compromis  entre  : 
d'una  part  la  desir  da  rddulre  la  codt  dconomlque  de  l'ensemble.  de  faciliter  la  coordination 
das  dqulpes  d'lnformaticlans;  et  d'autre  part  le  refus  de  erder  des  centres  trop  importants 
dlfficiles  A  gdrar  at  A  diriger.et  poaant  das  probldmes  ddlicats  de  sdcuritd.  Lc  regroupe- 
roant  das  traitements  relatifs  A  plusleurs  regions  sur  chacun  de  ces  sept  centres  permettra 
da  laur  donnar  una  taille  ralativement  homogdne.  Cheque  centre  "gdrera"  environ  un  mil¬ 
lion  d' abonnds  A  la  fin  du  Vldme  Plan. 

La  miaa  an  place  da  ces  centres  a  ddbutd  au  ddbut  de  l'annde  1971  :  un  ordlnateur  IRIS  50  de 
la  Compagnie  Internationale  pour  l'Informatique  a  dtd  installd  A  Toulouse  en  fdvrier  ;  la 
mdma  machine  viant  d'dtra  mise  an  service  au  centre  da  calcul  interregional  de  Bordeaux. 

Figure  ?-6  Test  Document  Scanned/ Printed  7.7  llnes/mm. 

Photo  n*  1  -  Document  trfcs  dense  lettre  1,5mm  de  haut  - 

Restitution  photo  n*  9 
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L'ordrede  Lan  cement  at  da  realisation  das  applications  fait  l'objet  da  dec  la  Iona  au  plus  haut 
nivaau  da  la  Direction  Gdndrale  das  Telecommunication.  U  n'eet  certaa  pa  a  question  da 
canatruira  ca  systSme  Integra  "an  bloc"  main  bian  au  coatraira  da  procedar  par  etapes,  par 
pallors  sucoesslfs.  Csrt aloes  applications,  dent  la  rantabilite  ne  pourra  etra  assures,  rv 
saront  pas  entre prises.  ActuaUamant,  rur  trente  applications  qui  exit  pu  etra  globalamant 
def inlet,  six en  sort  au  stade  ds  Sexploitation,  six  autrea  ae  sont  vu  donner  la  prtorlte  pour 
lour  realisation. 

Chaque  application  ast  confiea  4  un  "chef  da  projet",  responsible  succaaslvement  de  as 
conception,  de  son  analyse -program raation  at  de  aa  miae  en  oeuvre  dans  une  region-pilote. 
La  generalisation  ulterlaura  da  l'applicatlon  realises  dan  a  catta  region-pilots  depend  dee 
reeultata  obtenus  et  fait  l'objet  d'una  decision  de  la  Direction  Generale.  Neanmolns.  le 
chef  de  projet  dolt  des  le  depart  conaiderer  qus  son  activite  a  una  vocation  nationals  done 
refuser  tout  particularisms  regional,  n  eat  aide  d'une  equips  d'analyatea-programmeurs 
at  sntourd  d’un  "groups  da  conception"  charge  ds  redigsr  Is  document  de  "definition  des 
objsctifa  globaux"  puis  le  "cahler  dsa  charges"  de  1'sppUcatlon.  qui  sont  adrssaes  pour  avis 
4  tous  las  services  utilisateurs  potentials  at  aux  chefs  de  projet  dea  autrea  applications. 
Le  groups  de  conception  comprend  6  4  10  personnel  reprdaentant  lea  services  las  plus 
divers  concarnes  par  le  projet,at  comporte  obligatoirement  un  bon  analysts  attache  4  l'ap- 
pllcatian. 

n  -  L' IMPLANTATION  GEOCRAPHIQUE  D'UN  RESEAU  INFORMATIQUE  PERFORMANT 

L'organisatlon  de  l'entreprlae  franfaiae  dea  telecommunications  repose  sur  l'existence  de 
20  regions.  Dea  calculsteurs  ont  ete  implantes  dans  la  pan!  au  moina  dans  toutas  las  plus 
importantaa,  Ontrouvs  alnsl  das  machlnas  Bull  Gamma  30  a  Lyon  et  Marseille,  des  GE  425 
4  LlUa,  Bordeaux.  Toulouse  et  Montpellier,  un  GE  437  4  Massy,  snfln  qutlquss  machines 
Bull  300  T1  4  programmes  ciblds  etalant  rdeemment  ou  sont  sneore  en  service  dans  les 
regions  de  Nancy,  Nantaa.  Limoges,  Poltlsra  at  Rouen  ;  ce  pare  eat  essentleUement  utilise 
pour  la  comptabilite  teidphcnique , 

Al’avsnir,  si  la  plupart  des  flchlers  necsasalres  aux  applications  ddcritee  plus  haut  peuvent 
ttrs  gdrde  en  temps  differ*,  un  certain  nombre  d'entre  eux  devront  ndeeasairsmant  etra  ac- 
cessiblss,  voire  mis  4  jour  en  temps  reel  :  par  ml  cea  da  rulers  le  flchier  commercial  dea 
abonnSe,  la  flchier  das  rairsalgnamants,  la  flehler  das  circuits,  le  flchier  technique  dea 
abonnee  contiendront  des  quantites  considersblaa  d'informstions. 

La  volume  total  ds  caractirts  4  gdrar  an  phase  finals  sur  un  ordlnateur  ayant  en  charge 
quelques  S00  000  abonnea  a  dtd  estimd  4  un  milliard  de  caraetdrea  au  moina.  Au  moina  lc 
tiers  des  donndea  seront  concerndes  par  des  traitemsnts  an  temps  rdel. 

Aucun  dea  calculsteurs  dnumerds  plus  haut  ns  permsttait  d'anvisagar  de  tels  traitamants. 
L'integration  progressive  da  toutas  lea  applications  suppose  la  creation  d'un  support  eommun 
pour  toutas  Isa  Informations,  une  veritable  "Banque  de  donndes",  rdpartie  sur  des  moyens 
detrsitement  nation  aux  at  rdgionaux,  at  qut  devra  raster  ahmentde,  miss  4  jour  an  perma¬ 
nence,  4  partir  da  la  bass  ds  l'entreprlse,  c'sst-4-dlre  les  chantlers,  les  magasins,  les 
guichata  das  services  d'abonnement,  les  services  de  personnel  etc. 

L'dtude  des  diffdrants  ftchlsra  4  constltuer  a  done  permis  de  ddfinir  lea  principalea  carac- 
terirtiques  du  rdaeau  d'ordinateurs  nouvaaux  4  mettre  en  place  pour  abordar  la  realisation 
du  systdme  in/or matif.  L'obligation  ds  fairs  appel  4  des  ordlnateurs  de  troiaidme  generation, 
trda  puissants at dotda  da  volumlneuses  mdmoires  de  maase.  a  conduit  4  en  rdduire  sub6tan- 
tlallamant  la  nombre. 

L'lmplantation  de  aept  centres  da  calcul  lnterrdglonaux  constituera  un  compromis  antre  : 
d'una  part  la  ddsir  da  rdduire  la  coOt  dconomique  de  l'ensemble.  de  faciltter  la  coordination 
daa  dqulpaa  d'tnformatlclena;  at  d'autre  part  le  refua  de  erder  das  centres  trop  important 
dlfficilss  4  gdrer  at  4  dlriger.et  poaant  das  problemas  ddlicats  de  adcuritd.  Lc  regroupe- 
ment  des  traitements  relatifa  4  plusleurs  regions  sur  chacun  de  cea  sept  centres  permettra 
ds  lsur  dormer  uns  tallle  rslativement  homogdne.  Cheque  centre  "gdrera"  environ  un  mil¬ 
lion  d'abonnds  4  la  fin  du  VIdme  Plan. 

La  mis*  an  place  de  ces  centres  a  ddbutd  au  ddbut  de  l'annde  197 1  :  un  ordlnateur  IRIS  50  de 
la  Compagnle  Internationale  pour  l'lnformatique  a  dtd  instalid  4  Toulouae  en  fdvrier  ;  la 
mema  machine  vient  d'etre  miss  an  service  au  centre  de  calcul  interregional  de  Bordeaux. 

Figure  2-7  Test  Comment  Scanned  7  linei/ra.  Printed  3.85  llnes/ea. 

Photo  n*  1  -  Document  trda  dense  lettre  1, 5mm  de  haut 

Restitution  photo  n*  9 
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Group  3  situation  while  the  measurement  without  overhead  applies  to 
the  Group  U  case. 


2.6  Measurement  of  Error  Sensitivity 

An  objective  measure  of  error  sensitivity  is  obtained  by  encoding 
the  test  documents  with  the  proposed  techniques  (all  overhead  bits  must 
be  included),  subjecting  the  resulting  bit  stream  to  transmission 
errors,  decoding  the  transmission  to  obtain  the  received  image,  and 
comparing  the  original  image  with  the  received  image  to  determine  the 
number  of  pels  in  error.  The  Error  Sensitivity  Factor  (ESF)  is  cal¬ 
culated  as  the  total  number  of  document  pels  in  error  divided  by  the 
total  number  of  transmission  bits  that  are  in  error.  In  this  way, 
the  ESF  represents  the  average  disturbance  to  the  output  image  caused 
by  a  single  transmission  error. 

2.6,1  Transmission  Error  Pattern 

It  was  agreed  that  a  record  of  actual  bit  errors  incurred  over 
telephone  lines  will  be  used  in  the  error  sensitivity  test.  The 
Federal  Republic  of  Germany  (see  Reference  8)  has  obtained  a  record 
of  such  errors  by  transmitting  a  known  psuedo-random  sequence  at 
U800  bits/sec.  using  a  V27  ter  modem  over  a  switched  telephone  net¬ 
work.  The  resultant  error  pattern  has  been  recorded  on  magnetic  tape 
and  made  available  to  experimenters.  Appendix  C  of  Reference  3  des¬ 
cribes  the  format  of  the  transmission  error  magnetic  tape.  This  tape 
was  used  in  the  measurement  of  error  sensitivity  described  in  this 
report . 


2.6.2  Error  Phases 


One  concern  with  the  ESF  measurement  is  the  high  degree  of 
sensitivity  to  those  few  errors  which  may  affect  the  end  of  line  code 
and  can  cause  an  inordinate  number  of  incorrect  pels.  If  the  error  pattern 
happened  to  fall  in  an  unfortunate  phase  relative  to  the  encoded  bits, 
a  large  number  of  pels  could  be  affected.  On  the  other  hand,  the  error 
pattern  could  fall  fortuitously  and  affect  a  relatively  few  number  of 
pels.  To  insure  experimenters  can  achieve  an  adequate  level  of  statis¬ 
tical  validity,  the  concept  of  error  phases  has  been  introduced.  In 
the  basic  zero  phase,  the  first  bit  of  the  error  record  is  aligned 
with  the  first  bit  of  the  encoded  transmission.  In  the  case  of  Phase  2, 
the  transmitted  bit  information  is  delayed  by  1 ,02h  bits  relative  to 
the  previous  run.  The  transmission  bit  information  is  delayed  by 
2,0hS  bits  for  Phase  2.  Experimenters  would  have  a  higher  confidence 
level  in  the  average  of  the  three  phases  compared  to  any  one  ESF  taken 
alone . 

2.6.3  Error  Correction 

In  order  to  precisely  measure  the  error  sensitivity,  both  the 
encoding  technique  and  the  decoding  algorithm  must  be  completely 
defined.  If  more  than  one  decoding  algorithm  is  proposed  (for  example, 
to  achieve  differing  levels  of  error  control),  each  must  be  tested 
separately.  Collective  Letter  No.  3 7  from  the  CCITT  (see  Reference  7) 
outlines  an  error  correction  procedure  to  be  used  for  simulating  two- 
dimensional  algorithms  where  an  error  correction  procedure  has  not  been 
otherwise  specified.  In  this  procedure,  the  erroneous  line  is  replaced 


by  the  previous  line  and  following  lines  are  replaced  by  white  lines 
until  a  one-dijnensional  coding  line  is  correctly  decoded. 
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3.0  COMPUTER  PROGRAM  OVERVIEW 


This  section  contains  a  general  overview  of  the  computer  program 
architecture  used  under  this  contract.  The  description  is  divided 
into  two  parts.  Section  3.1  focuses  on  the  overall  simulation  process 
from  a  flow  perspective  with  particular  emphasis  on  the  simulation 
inputs  and  outputs.  Section  3.2  presents  the  hierarchical  structure 
of  the  programs  illustrating  how  the  programs  are  organized  for  each 
of  the  7  different  algorithms.  For  convenience  of  the  reader,  a 
detailed  flow  chart,  and  the  actual  program  code  listing,  has  been 
included  in  the  Appendices  for  each  algorithm  (Appendices  D  through 
g)  •  All  computer  programs  have  been  written  in  conventional  Fortran 
IV  language. 

3.1  The  Simulation  Process 

Figure  3-1  illustrates  the  interrelationship  between  the  major 
functions  of  each  simulation  program  developed  on  the  subject  contract. 
There  are  two  input  data  sets  to  each  simulation  which  originate  on 
magnetic  tape.  One  tape,  supplied  by  the  French  FTT  Administration, 
contains  all  eight  of  the  CCITT  test  documents.  The  format  of  this 
input  image  tape  is  described  in  Appendix  3  of  Reference  3.  The  other 
tape,  supplied  by  the  Federal  Republic  of  Germany,  contains  transmission 
error  data  from  actual  switched  telephone  circuits.  The  format  of  this 
input  tape  is  described  in  Appendix  C  of  Reference  3.  A  program  called 
"REETAP"  was  prepared  to  read  the  data  from  the  input  document  tape 
while  the  error  tape  is  read  in  directly.  Data  from  the  two  input 
tapes  are  placed  on  disc  in  the  computer  system  to  be  accessed  during 
the  simulation  process.  A  separate  file  is  established  for  each  of  the 


diagram  of  the  simulation  process  STATISTICS 


test  documents.  The  transmission  error  tape  is  divided  into  four 
files,  one  for  each  of  four  different  circuit  error  conditions. 

To  initiate  the  simulation  process,  the  operator  must  type  in 
a  set  of  input  parameters.  The  insertion  of  the  input  parameters  is 
accomplished  on  an  interactive  basis  with  prompting.  A  typical 
interactive  sequence  with  responses  is  listed  below. 

1.  PARAMETERS:  INPUT  (=1),  OR  DEFAULT  (=D)?  I 

2.  DIAGNOSTIC  PRINTOUT?  (TORN).  N 

3.  ENTER  MAXIMUM  NUMBER  OF  PELS  PER  LINE:  1  728 
lu  ENTER  VERTICAL  SAMPLING: 

5.  ENTER  PARAMETER  K:  U 

6.  ENTER  ERROR  PATTERN  PHASE:  0 

7.  ENTER  MINIMUM  COMPRESSED  LINE  LENGTH:  a6 

8.  NUMBER  OF  SCAN  LINES  TO  BE  PROCESSED  =  ?  10 

9.  ERROR  MODE  *  ?  (M=MANUAL,  T=TAJPE,  N=N0  ERRORS)  N 
After  the  data  has  been  entered  and  the  measurement  parameters 

have  been  selected,  the  first  step  in  the  simulation  process  is  the 
"ENCODE"  function.  This  function  detects  color  changes  in  the  input  data 
and  constructs  the  appropriate  code  word  by  table  look-up  or  algorithm. 
The  actual  code  is  fed  to  the  error  corrupt  unit,  while  the  number  of 
code  bits  is  accumulated  with  fill  and  EOL  codes  to  provide  the  output 
total  number  of  data  bits,  to  compute  the  Compression  Factors,  CF^ 

and  CF.  . 

U 

The  error  corruption  step  combines  the  transmission  error  data 
with  the  encoded  data.  At  each  point  in  the  image  where  an  error  occurs, 
the  corresponding  bit  in  the  encoded  signal  is  reversed  and  fed  to  the 


t 
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decode  function.  The  decoder  basically  performs  the  inverse  function 
of  the  encoder,  generating  a  series  of  lines  of  image  pels.  There  are 
two  parts  of  the  decoding  function  which  are  not  obvious  and  require 
clarification:  (1)  what  the  decoder  does  when  an  error  occurs 
(2)  what  the  decoder  does  whqn  a  line  is  missing.  The  operation  of 
the  decoder  under  these  two  conditions  is  described  in  Section  U. 

The  output  of  the  Decode  function  feeds  the  "WRITAP"  or  ’'CONVERT’’ 
functions  for  writing  the  error  corrupted  image  on  magnetic  tape.  It  is 
also  fed  to  a  subtraction  function  which  compares  the  decoded  image  with 
the  original  image.  Pels  which  are  in  error  are  fed  to  the  "ERBKES" 
subroutine  which  counts  all  the  pels  in  the  image  which  are  in  error. 
This  subroutine  also  counts  the  number  of  transmission  error  bits 
which  corrupted  the  encode  signal.  Finally,  the  "ERHMES"  subroutine 
computes  the  ESF  by  dividing  the  number  of  incorrect  pels  by  the 
number  of  transmitted  bits  in  error. 

Figure  3-1  shows  that  the  simulation  process  provides  a  printout 
of  all  the  computed  performance  data  as  well  as  a  summary  tabulation 
of  the  input  parameters. 

For  more  details  on  the  computer  programs,  refer  to  Section  3.2 
for  a  description  of  the  program  structure  and  to  the  Appendices  for 
flow  charts  and  program  listings. 

The  reader  should  note  that  most  of  the  software  prepared  under 
this  contract  is  suitable  for  simulating  any  compression  algorithm. 

The  only  subroutines  which  must  be  written  specifically  for  a  particu¬ 
lar  coding  technique  are  the  encode  and  decode  subroutines. 
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3.2  Program  Structure 

The  following  section  describes  the  structure  of  the  computer 
program  written  to  simulate  the  various  algorithms.  In  addition, 
a  brief  description  of  each  of  the  subroutines  is  given. 

Each  of  the  computer  programs  written  to  simulate  the  seven 
compression  algorithms  conforms  to  the  general  structure  shown  in 
Figure  3-2.  The  chart  given  in  this  figure  shows  the  hierarchy  of  the 
functions  that  make  up  each  simulation  program.  Some  of  the  functions 
on  the  chart  are  named  generically:  the  table  in  Figure  3-2  shows 
how  these  generic  function  names  are  keyed  to  the  actual  subroutine 
names  used  by  each  compression  algorithm.  The  names  on  the  hierarchical 
chart  that  do  not  appear  in  the  table  are  subroutines  that  are  used 
by  all  compression  algorithms.  A  brief  description  of  each  of  the 
functions/ subroutines  follows : 

MAIN 

The  MAIN  program  controls  the  decoding  process  and  the  error 
recovery  procedure  for  getting  back  in  sync  when  an  error  is  detected. 

As  can  be  seen  from  Figure  3-2,  the  simulation  process  is  "decode 
driven";  that  is,  the  main  program  controls  the  decode  process  which 
decodes  a  buffered  line  of  compressed  data.  When  the  contents  of  the 
buffer  have  been  used  up,  a  new  line  of  data  is  encoded.  The  MAIN  pro¬ 
gram  also  controls  parameter  input,  measurement  of  errors,  and  reports 
computed  results, 

GETL 

The  GETL  subroutine  retrieves  a  number  of  requested  bits  from 
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the  coded  line  and  delivers  tile  bits  packed  into  a  word  (right 
justified).  If  stuffing  bits  have  been  used,  i.e.  in  the  German  code, 
they  are  removed.  End-of-line  codes  (EDL)  or  line  synchronisation 
signals  (LSS)  are  detected.  If  the  number  of  coded  bits  requested 
by  the  calling  program  is  not  available,  the  ENCODE  subroutine  is 
called  to  provide  them. 

ENCODE 

This  subroutine  supplies  a  line  of  compressed  data.  Color  transitions 
on  an  input  line  are  detected  bit-by-bit.  Both  one- dimensional  and 
two-dimensional  lines  are  encoded  depending  on  the  parameter  K.  The  code 
word  is  generated  by  table  look-up,  or  algorithm,  as  appropriate,  and 
added  to  the  coded  line  buffer  via  CODE  1  and/or  CODE  j. 

CODE  1 

The  subroutine  COPE  1  is  called  by  ENCODE  to  look  up  the  Modified 
Huffman  Code  (MHC)  corresponding  to  a  given  run  length  and  color,  and 
add  the  code  word  to  the  coded  line  buffer. 

CODE  : 

The  subroutine  CODE  2  performs  a  similar  function  for  the 
two-dimensional  case.  Based  on  a  particular  feature,  the  appropriate 
code  word  is  generated  by  table  look-up  or  algorithm  and  added  to  the 
coded  line  buffer.  All  code  tables  for  both  one-dimensional  and 
two-dimensional  codes  are  stored  in  labelled  common  which  Is  initial¬ 
ised  by  a  BLOCK  DATA  subprogram. 


STUFF 


The  STUFF  subroutine  is  used  by  the  READ  and  German  algorithms  to 
insert  0's  or  1 's  in  the  coded  data  stream  in  order  to  avoid  ambiguities 
with  the  line  synchronization  signal.  A  '1'  is  inserted  after  every  occurence 
of  ten  consecutive  zeroes  in  the  coded  steam  for  the  German  algorithm. 

DECODE  1 

The  DECODE  1  subroutine  decodes  the  MHC.  It  extracts  a  set  of 
n  bits  (n=3  initially)  from  the  coded  line  and  looks  for  a  match  with 
all  code  words  of  length  n,  increasing  n  until  a  match  is  found  or 
the  code  table  is  exhausted.  Mien  and  if  a  match  is  found,  the 
indicated  bits  are  constructed  on  the  output  line.  Any  errors  detected 
in  the  decoding  process,  such  as  no  match  to  code  table,  or  line  too  long, 
are  flagged. 

DECODE  2 

This  subroutine  performs  the  same  function  as  DECODE  1  for  the 
two-dimensional  line. 

MI23  and  IUB 

The  subprograms  MI2B  and  IhB  are  used  to  pack  and  unpack  a  set 
of  bits  into  (or  from)  an  array  of  words. 
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U.O  Error  Detection/Correction  Procedure 

In  Reference  7.0,  the  following  error  checking  and  processing 
procedure  was  specified  by  the  CCITT  for  testing  the  proposed  two- 
dimensional  coding  techniques: 

1)  Error  checking  -  If  decoded  signals  are  not  exactly 
1728  pelsAine,  the  line  is  recognized  as  an  erroneous 
line. 

2)  Error  processing  -  The  erroneous  line  is  replaced  by 
the  previous  line  and  following  lines  are  replaced  by 
white  lines  until  one-dimensional  coding  line  is 
correctly  decoded. 

The  error  detection  and  correction  procedures  used  in  this  simu¬ 
lation  follow  the  spirit,  if  not  the  letter,  of  this  directive. 

Not  all  of  the  proposed  algorithms  produce  a  line  pel  count  that 
can  be  checked  against  the  correct  1728  pels  per  line.  The  error 
checking  was  expanded  to  include  the  detection  of  any  condition  that 
could  not  possibly  occur  in  a  correctly  received  transmission.  Some 
examples  of  possible  error  conditions  are: 

•  BOL  occurs  before  1 728  pels  have  been  written 

•  More  than  1 728  pels  have  been  written  before  EOL  is 
received 

•  No  word  in  applicable  code  table  matches  received  bit 
pattern 

t  Current  line  decoding  references  a  run  that  does  not 
exist  in  the  previous  line 


•  Pels  are  written  to  the  left  of  the  first  pel  on  the  line 


Conditions  that  are  only  improbable,  such  as  a  line  of  pels  that 
differs  radically  from  the  previous  line,  are  not  considered  error 
conditions.  Error  conditions  specific  to  each  coding  algorithm  are 
discussed  in  Section  5.0. 

The  AT&T  algorithm  does  not,  strictly  speaking,  have  a  "one- 
dimensional  coding  line."  Therefore,  the  error  processing  was  ex¬ 
tended,  for  this  algorithm,  to  consider  any  line  that  can  be  decoded 
without  an  error  condition  as  a  correct  line.  In  decoding  lines  that 
reference  previous  lines,  the  last  correctly  decoded  line  is  used  as 
the  reference  line,  regardless  of  whether  or  not  there  are  intervening 
error  lines.  It  is  believed  that  the  chance  of  correctly  decoding  a 
line,  following  an  error  line  that  references  a  previous  line,  is 
extremely  small. 

Upon  detection  of  an  error  condition,  the  decoder  attempts  to 
resynchronize  by  searching  for  the  next  unique  Line  Synchronization 
Signal  (LSS).  All  but  the  AT&T  algorithm  have  different  codes  for 
one-dimensional  and  two-dimensional  lines.  The  state  diagram  for 
error  recovery  for  these  algorithms  is  shown  in  Figure  lt-1 .  For  the 
AT&T  algorithm,  the  One-Dimensional  Decode  and  the  Two-Dimensional 
Decode  states  are  identical,  and  detection  of  an  SOL  in  the  Search 
state  causes  a  change  to  the  Decode  state,  rather  than  staying  in 
Search . 

Following  Reference  75  when  an  error  condition  is  detected, 
the  error  line  is  replaced  by  the  previous  correct  line,  while 
successive  error  lines  are  replaced  by  all-white  lines,  until  a  line 
is  decoded  correctly.  It  should  be  pointed  out  that  this  procedure 


may  not  be  optimum.  Repeating  the  last  correct  line  until  the  next 
correct  line  is  received  may  produce  better  results  from  a  subjective 
and  objective  point  of  view. 

Because  of  transmission  errors,  some  of  the  original  image  lines 
may  be  missing  in  the  output,  or  additional  lines  may  be  in  the  output 
that  were  not  in  the  original  image.  In  order  that  a  missing  or  extra 
line  not  have  an  undue  influence  on  the  ESF,  it  is  important  that  the 
original  and  received  images  not  get  permanently  out  of  line  alignment 
when  they  are  compared  to  determine  the  number  of  pel  errors.  To  this 
end,  each  of  the  lines  in  the  original  image  is  assigned  a  serial  line 
number,  and  this  number  continues  to  be  associated  with  the  same  line 
in  the  received  image.  If  a  transmitted  line  is  dropped,  due  to  the 
loss  of  an  BOL,  then  its  line  number  will  be  missing  in  the  output. 

On  the  other  hand,  if  a  line  is  broken  into  two  or  more  lines  in  the 
received  image,  due  to  false  EOL's,  then  its  line  number  will  appear 
more  than  once  in  the  output. 

If  no  lines  are  dropped  or  added,  the  line  numbers  of  the  original 
and  received  lines  that  are  compared  to  detect  pel  errors  will  be 
equal.  When  a  line  is  added  or  deleted,  the  line  numbers  of  the  com¬ 
pared  lines  will  become  unequal.  When  this  occurs  for  the  first  time, 
the  two  lines  with  different  line  numbers  are  compared  to  determine 
the  number  of  pel  errors,  which  is  added  to  the  pel  error  total.  Then, 
instead  of  proceeding  to  the  next  line  in  both  the  original  and  received 
images,  the  next  line  is  used  in  only  one  of  the  images,  with  the 
previous  line  being  used  in  the  other  image.  The  line  is  advanced  only 
in  that  image  that  has  the  smaller  line  number,  so  as  to  tend  to  make 
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the  line  numbers  of  the  two  Images  none  equal.  This  continues  until 
the  line  numbers  are  equal,  after  which  the  nert  line  is  used  In  both 
images,  until  another  inequality  is  detected. 

This  procedure  provides  a  proper  penalty  for  a  missing  or  added 
line,  but  prevents  this  type  of  error  from  causing  pel  errors  over 
the  entire  inage  below  the  place  where  it  occurred. 


5.0  ASSUMPTIONS  RELATED  TO  INDIVIDUAL  ALGORITHMS 


5.1  British  Post  Office 

No  modif ications  or  assumptions  were  required  to  simulate  the 
British  algorithm.  Two  optional  procedures,  as  defined  in  the  British 
contribution,  were  simulated  to  enable  best  performance:  The  resettable 
K  procedure  was  used  to  reset  K  when  an  all-white  line  followed  a  non- 
all-white  line  or  a  ncn-all -white  line  followed  an  all-white  line.  The 
optional  step  3  in  the  two-dimensional  coding  procedure  was  used  in  place 
of  step  2ii. 

5.2  Federal  Republic  of  Germany 

The  German  compression  algorithm  encodes  run  lengths  of  correct 
predictions  followed  by  an  incorrect  prediction.  The  runs  between  incorrect 
predictions  are  encoded  separately  for  each  source  state.  However,  the 
contribution  was  not  clear  on  the  coding  procedure  if  the  last  run  of  predic¬ 
tions  on  a  line  for  a  given  source  state  did  not  end  with  a  prediction 
error.  Therefore,  a  hypothetical  prediction  error  was  added  to  each  run 
of  correct  predictions  for  a  given  state  if  that  run  did  not  terminate 
naturally  with  a  prediction  error.  This  hypothetical  error  was  automatically 
ignored  on  decoding.  This  procedure  required  a  slight  modification  to  the 

code  table  for  state  0  (S„) .  The  code  word  110  was  used  for  a  run  length 

0 

of  172?  instead  of  1728  and  the  code  word  10  for  the  prefix  was  used  for 
lengths  of  65-1728  instead  of  65-1727. 

Note  that  it  is  not  possible  with  the  German  algorithm  to  detect 
errors  by  checking  the  decoded  line  length,  since  it  is  always  1728. 

Errors  were  detected  by  checking  the  residue  of  run  lengths  fcr  each  state 
after  a  complete  line  was  decoded.  For  an  error-free  line,  the  residue 
must  be  0  or  1  corresponding  to  runs  ending  with  a  prediction  error  and 


runs  ending  with  a  hypothetical  prediction  error,  respectively.  Any  runs 
of  length  greater  than  1  "left  over"  after  a  line  is  decoded  indicate  an 
error.  Taking  the  above  approach,  it  should  be  noted  that  in  the  example 
of  Figure  2  of  Appendix  3,  the  Sq  run  should  be  6  instead  of  5,  since  the 
first  prediction  error  for  state  Sq  occurs  the  sixth  time  state  zero  is 
present . 


) 
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6.0  MEASUREMENT  RESULTS 

During  the  course  of  this  contract.  Delta  Information  Systems 
prepared  computer  programs  to  simulate  the  two-dimensional  coding  algor¬ 
ithms  proposed  by  the  British  Post  Office  and  the  Federal  Republic  of 
Germany.  These  two  programs  were  then  run  on  the  Hybrid  Computer  Facility 
at  the  Defense  Communications  Engineering  Center  in  Reston,  Virginia.  Two 
different  types  of  simulation  were  performed.  The  first  measured  the  compres¬ 
sion  and  error  sensitivity  of  the  two  algorithms  at  five  different  test 
conditions  (the  four  CCITT  documents  at  standard  resolution  plus  document 
number  U  at  high  resolution) .  In  the  second  simulation,  all  seven  proposed 
algorithms  (Japan,  3M,  IBM,  Xerox,  AT&T,  BPO,  FGR)  were  tested  at  an  in¬ 
finite  K-factor  for  document  number  k  at  standard  and  high  resolution. 

The  results  of  these  two  simulation  tests  are  summarized  in  the  para¬ 
graphs  below. 

COMPRESSION  AND  ERROR  SENSITIVITY 

As  explained  above,  five  computer  runs  were  performed  for  both  the 
British  and  German  algorithms.  The  following  test  conditions  were  held 
constant  during  these  tests:  error  phase  -  0;  error  file  -  1;  minimum 
scan  line  time  -  20  ms.  All  four  test  documents  (Documents  1 ,  It,  5,  and 
7)  were  run  at  standard  resolution  and  a  K-factor  of  2.  For  the  fifth 
run,  test  document  number  U  was  run  at  high  resolution  with  a  K-factor  of 

U. 

The  results  of  the  ten  test  runs  are  tabulated  in  Tables  6-1  and  6-2. 

To  aid  in  the  evaluation  process,  the  corresponding  test  data  for  the  other 
five  algorithms  are  also  included  in  these  tables.  The  definitions  of 
measurement  parameters  included  in  these  tables  are  reviewed  below. 


6-1 


TABLE  6-1  COMPRESSION  AND  ERROR  SENSITIVITY  TEST  RESULTS 
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TABLE  6-2  COMPRESSION  AND  ERROR  SENSITIVITY  TEST  RESULTS 


•  Coded  Data  Bits  -  Total  compressed  bits  required  to 


transmit  the  document  excluding  all  overhead  bits  -  SOL, 
fill,  etc. 

•  Ceded  Bits  -  Toxal  compressed  bits  required  to  transmit 
the  document  including  all  overhead  such  as  EOL,  fill,  etc. 

•  CF.  -  Number  of  document  pels  divided  by  the  number  of 

•■i 

coded  data  bits 

•  CF^  -  Number  of  document  pels’’  divided  by  the  number  of 
coded  bits 

•  BER  -  Transmitted  bits  in  error  divided  by  the  number  of 
coded  bits 

•  ESF  -  Number  of  incorrect  pels  divided  by  the  number  of 
transmitted  bits  in  error 

CODED  LINE  LENGTH  STATISTICS 

The  CCITT  suggested  that  experimenters  should  measure  the  statistics 
related  to  the  number  of  bits  required  to  define  the  individual  scan 
lines.  Statistics  which  were  measured  are  minimum  bits/line,  maximum 
bits/line,  average  bits/line,  and  star. iard  deviation.  Statistics  were 
measured  for  each  of  the  two  algorithms  and  for  each  of  the  five  test 
conditions.  Table  c-3  is  a  tabulation  of  the  test  results  for  a  minimum 
scan  line  time  of  20  ms. 

INFINITE  K-FACTJR  TEST  RESULTS 

The  primary  objective  cf  this  overall  measurement  program  is  to 
contribute  to  'rhe  selection  of  a  standard  two -dimensional  ceding  technique 
for  the  Group  3  application.  For  this  reason,  attention  has  been  focused 

'■High  Resolution  -  2,376  lines  X  1728  pels/line  =  L, 105,728  pels 
Standard  Resolution  -  1 , 1 3 3  lines  X  1728  pels/line  =  2,0?2,S61j  pels 
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MINIMUM  SCAN  LINE  TIME  -  20  ms . 


on  a  low  K-factor  to  permit  satisfactory  operation  over  noisy  transmission 
channels.  It  is  also  anticipated  that  two-dimensional  coding  techniques 
will  be  employed  in  the  future  Group  U  situation  where  the  communication 
error  rate  will  be  very  low.  In  fact,  the  compression  parameter  CF^  was 
chosen  to  give  some  indication  of  performance  in  a  Group  k  application. 
However,  if  the  test  results  are  to  be  truly  representative  for  Group  U 
operation,  the  K-factor  should  be  increased.  To  provide  data  for  this 
application,  all  seven  candidate  algorithms  were  tested  for  an  infinite 
K-factor.  Each  algorithm  was  tested  at  both  the  standard  and  high  resolu¬ 
tion  case.  Table  o-U  is  a  tabulation  of  the  test  results. 

The  reader  will  note  that  four  of  the  coding  techniques  (Japan,  IBM, 
Xerox,  FRG)  exhibit  a  very  large  error  sensitivity  factor,  while  it  is 
much  lower  for  the  others.  All  those  algorithms  exhibiting  a  large  ESF 
cause  the  input  image  to  turn  all  white  when  the  first  error  occurs  and 
it  remains  so  to  the  bottom  of  the  page.  The  other  three  techniques 
have  some  degree  of  automatic  self  correction  for  transmission  errors. 

As  a  result  the  error  sensitivity  lor  these  three  algorithms  is  reduced. 
NOMENCLATURE  OF  PRINTED  ERROR -CONTAMINATED  IMAGES 

Independent  of  this  contract,  the  National  Communication  System  is 
printing  the  error-contaminated  images  which  were  simulated  and  listed 
in  Tables  6-1,  6-2,  and  6-U.  Each  of  these  printed  images  is  labelled  in 
accordance  with  a  particular  nomenclature.  Table  6-5  is  a  list  of  the 
test  parameters  and  corresponding  image  nomenclature  for  the  FRG  and  3P0 
algorithms.  This  table  is  included  to  assist  those  readers  who  may  wish 
to  correlate  the  test  results  included  herein  with  the  NCS  images. 
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Table  6-5  Nomenclature  of  Printed  Error  Contaminated  Images 


Image  * 

Nomenclature 

CCITT 

Document 

Number 

K-Factor 

Vertical 

Resolution 

188A 

1 

2 

3.58 

— - — - — ( 

U88A 

a 

2 

3.58 

U88b 

a 

a 

7.7 

588b 

5 

2 

3.58 

788a 

7 

2 

3.58 

U881 

h 

“ 

infinite 

3.58 

U882 

U 

infinite 

7.7 

^The  nomenclature  has  a  BPO  prefix  for  the  British  Post  Office  algorithm 
and  a  GRR  prefix  for  the  Federal  Republic  of  Germany  algorithm. 
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Introduction 


in  Limit  Recommendation  T.4  (COM  XIV,  No  25,  Annex  3,  Dec  1977)  which  rclens  to 
Group  3  facsimile  apparatus,  paragraph  4.2  notes  that  the  one-dimensional  coding 
ficnone  may  be  extended  as  an  option  to  a  two-dimension  coding  scheme.  This 
contribution  proposes  such  a  two-dimensional  coding  scheme  called  the  R2  codi*,wh..i> 
is  based  upon  the  one-dimensional  coding  scheme  given  in  Draft  Recommendation 

The  R2  code  uses  a  similar  coding  procedure  to  that  of  the  READ  code  proposed  by- 
Japan  (COM  XIV,  No  42,  Nov  1978)  but  uses  a  different  code  tuble.  Compared  wi'h 
tho  READ  code,  the  R2  provides  higher  compression  factors,  is  easier  to  implcn.*-n« 
and  is  expected  to  have  a  better  performance  in  the  presence  of  transmission  cvr>> i.  . 


Desirn  of  the  R2  code 


Best  Available  Copy 


One  of  the  most  important  factors  concerning  the  choice  of  a  2-dimensionni  odittr 
scheme  is  its  sensibility  to  transmission  errors.  The  one-dimensional  coding  «ch.  m> 
using  a  modified  Huffman  code  includes  a  unique  end-of-line  (EOL)  codeword 
•000000000001'.  This  codeword  contains  a  number  of  redundant  bits  which  cnmircu  thv 
this  sequence  of  digits  cannot  occur  naturally  in  the  coded  data  stream.  Them  or.  , 
an  error  occurring  in  a  coded  scan  line  cannot  prevent  the  detection  of  the  KuL 
codeword  associated  with  that  scan  line.  This  restricts  the  damage  caused  by  an  *.rr.  • 
to  u  single  line.  Also,  an  error  which  corrupts  one  or  more  digits  of  the  EoL  cod* » 
itself  may  not  necessarily  prevent  that  EOL  from  being  detected.  This  protection  i 
achieved  by  decoding  *0000000*  as  the  end  of  a  scan  line.  The  subsequent  coded  s«\»r. 
line  is  then  deemed  to  begin  immediately  following  the  next  *1*  in  the  data  airen*.. 

For  machines  accommodating  large  paper  widths  and  having  upto  2560  picture  tlemen*.. 
per  line,  the  end  of  a  scan  line  1b  recognised  by  detecting  '00000000*. 
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The  R2  two-dimensional  coding  scheme  is  designed  to  provide  the  same  protection  against 
the  effects  of  errors.  This  is  achieved  by  constructing  the  R2  code  table  so  that  it 
contains  the  codeword  ’0000000'.  The  remaining  codewords  are  then  added  by 
considering  the  statistics  of  the  various  coding  elements  or  modes.  The  complete 
table  has  the  prefix  property  and  is  exhaustive  (ie  it  is  a  Huffman  code).  Redundant 
bits  are  then  added  to  the  codeword  '0000000'  to  form  the  required  EOL  codeword 
11  x  ’O'  ♦  '1'.  (A  similar  method  was  used  in  the  design  of  the  modified  Huffman 
code  tables  specified  for  Group  3  machines).  The  R2  code  table  and  corresponding 
code  tree  for  the  R2  code  are  shown  in  Table  1  and  Figure  3  respectively. 

There  are  a  number  of  Other  differences  between  the  R2  and  READ  codes.  Computer 
simulation  tests  on  the  READ  code  (Section  4)  indicate  that  the  vertical  coding 
elements  VL( n)  and  V^(n),  where  n  is  greater  than  3, occur  infrequently  compared  with 
the  other  coding  elements.  Unlike  the  READ  c'-de,  the  R2  code  uses  horisontal  mode 
coding  in  these  cases.  Hence  the  R2  code  has  j  range  of  vertical  mode  coding  of  up  to 
plus  or  minus  3  picture  elements  and  the  R2  code  taole  contains  specific  codewords 
to  represent  the  vertical  coding  elements  ,  Vr(2),  V[_(3)  and  Vr{3).  The  R2  code 

does  not  include  codewords  equivalent  to  the  READ  code  D(n)  codewords. 

The  Mow  diagram  for  the  R2  code  is  similar  to  that  for  the  READ  code  except  that  an 
extra  decision  box  (is  |a]bj|>3?)  is  inserted  immediately  before  the  decision  box 
(is  QaQaij  >  (>ia2J?).  The  latter  decision  box  is  an  adaptive  coding  procedure  which 
ensures  that  certain  changing  elements  on  the  coding  line  are  coded  by  the  most 
j|#ffecient  means.  The  decision  box  is  not  essential  in  the  R2  coding  procedure  and  is 
Spncrelore  included  as  an  optional  procedure  in  the  R2  flow  diagram. 

ati 


table  i  shows  that  the  EOL  codeword  is  followed  by  a  '1'  or  a  *0’  flag  bit  to  indicate 
whether  tne  next  scan  line  is  to  be  coded  by  one-  or  two-dimensional  coding  respectively. 
This  allows  the  K  parameter  to  be  used  in  a  flexible  manner,  called  'resettable  K',  as 
described  in  Annex  1,  Paragraph  4.2.1b.  (Note  that  the  resettable  K  procedure  can  also 
be  used  with  the  READ  code). 

A  formal  description  of  the  R2  coding  procedure  is  given  in  the  Annex  in  a  format 
capable  of  being  inserted  in  Paragraph  4.2  of  Draft  Recommendation  T.4. 

3  Comments  concerning  the  R2  and  read  coding  schemes 


1  There  is  no  redundancy  in  the  end-of-line  codewords  LSS1  and  LSS2.  Thus  a 
transmission  error  which  corrupts  any  of  the  digits  LSS1  or  LSS2  will  prevent  detection 
of  that  end-of-line  codeword. 

2  The  need  to  add  a  'O'  ("stuffing"  bit)  after  the  occurrence  of  five  consecutive 
'I's  in  the  coded  data  stream  obtained  using  the  READ  code  increases  the  complexity 
of  the  coding  and  decoding  processes.  It  also  increases  the  transmission  time  for 
documents  1,  4,  5  and  7  by  an  average  of  2.5%.  On  the  other  hand,  stuffing  bits  are 
not  required  when  the  R2  code  is  used,  since  the  end-of-line  (EOL)  codeword  is  unique. 

3  The  R2  coding  procedure  is  simpler  than  the  READ  coding  procedure  since  the  number 
of  vertical  coding  elements  is  limited  to  seven.  Hence,  in  the  R2  code,  codewords  of 
the  form  D(n)  are  not  required  and  the  coder  needs  to  consider  only  a  small  number  of 
picture  elements  on  the  reference  line  when  coding  a  changing  element  on  the  coding 
line. 

4  Step  3  is  an  optional  step  in  the  R2  code  which  does  not  affect  the  compatibility 

between  machines.  This  step  is  an  adaptive  coding  procedure  represented  by.  the  decision 
box  £is  £a0aj]  >  ^aibi]?]  in  the  dia8ram'  omitting  it,  the  R2  coding 

procedure  is  simplified  since  it  is  not  necessary  to  code  each  changing  element  along 
the  coding  line  by  two  di fferent  methods.  The  results  show  that  the  compression  factors 
are  not  changed  significantly  if  this  decision  box  is  omitted. 

A-2 
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b  The  existence  of  on  error  on  a  icon  lint  of  codad  data  transmitted  using  the 
1-dlmenslonal  modi f i td  Huffman  coding  method  can  usually  be  datactad  since  each  decoded 
scan  line  between  successive  EOL  codewords  should  consist  of  172*  picture  elements. 

This  1728  check  can  be  used  on  every  decoded  scan  line,  whether  or  not  "fill*  bits  have 
been  transmitted.  If  an  error  is  detected,  then  it  is  optionally  possible  for  the 
receiver  to  apply  some  form  of  corrective  action.  For  example  the  receiver  may  attempt 
to  conceal  the  error  by  printing  an  all  white  line  or  the  previous,  scan  line. 

However,  the  READ  code  does  not  always  allow  this  1728  check  to  be  used  to  determine 
the  occurrence  of  an  error  even  when  LSS1  or  LSS2  has  been  correctly  decoded.  The 
problem  ia  that  “fill"  bits  can  sometimes  be  erroneously  decoded,  for- example,  as  a 
sequence  of  the  codeword  V(0),  (see  Table  3,  Com  XIV,  No  42).  In  this  case,  the 
presence  of  an  error  may  not  be  detected  and  error  concealment  could  not  be  applied. 

The  R2  coding  algorithm  avoids  this  problem  by  using  a  code  table  which  will  not  allow 
"fill"  bits  to  be  decoded  as  valid  data. 


4  weault » 

The  READ  coding  scheme,  as  described  in  ref  1,  but  with  the  addition  of  the  resettabl* 

K  procedure  (see  Annex,  Section  >4. 2. lb),  was  simulated  by  computer  pro* run.  This 
enabled  the  number  of  coded  bits,  both  with  and  without  bit  stuffing  and  the  frequencies 
of  the  various  coding  elements  to  be  measured  for  four  of  the  CC1TT  reference  documents. 
Corresponding  measurements  were  then  obtained  for  the  R2  coding  scheme.  Two  sets  of 
measurements  wore  obtained,  one  which  included  the  adaptive  coding  step  .1  and  one  whl.'li 
omitted  this  step.  Note  that;  stuffing  bits  were  not  added  to  the  coded  dntu  obtained 
usin^  tin*  R-  code.  . 

iiu  ftcusur* -merits  were  obtained  for  minimum  line  periods  of  0,  b,  10  ond  20  msecs,  whies: 
correspond  to  minimum  numbers  of  bits  per  line  of  0,  24,.  48  and  »n>  bits  respectively 
when  trmiumi union  takes  place  at  4.8  kbits/sec.  The  resettable  K  procedure  used 
obtain  them4  results  wau  slightly  different  to  that  proposed  as  on  option  in  the  h. 
code.  For  these  results,  each  all  white  acan  lint  was  one-dimeusional ly  cotied. 

A  use i ul  comparison  between  the  two  codes  can  be  obtained  by  considering  the  compress..!, 
factors  tor  the  four  documenta  measured  with  a  minimum  line  period  ol  o  msecs  and 
Including  the  appropriate  LSS1/2  or  EOL  codewords.  This  shows  that  the  addition  of 
*  stuffing  bits  to  the  HEAP  code  increases  the  number  of  coded  bits  required  by  ?.b‘* 
on  uverngc  (cf  Tables  2  and  3).  Tables  4  and  5  Indicate  that  the  omission  of  the 
adaptive  coding  step  3  has  very  little  effect  upon  the  number  of  coded  hits;  the 
number  of  coded  bits  is  slightly  higher  for  documents  1  and  4  and  slightly  lower  for 
the  other  two  documents  when  step  3  Is  omitted.  When  compared  to  the  REAP  code  with 
-bit.  stuffing,  the  112  coding  procedure  requires,  on  average,  2.0%  fewer  coded  hits 
(cf  Table  3  with  Table  4  or  5). 

The  frequencies  of  the  coding  elements  for  the  READ  code  are  liuted  in  Table  t>. 

Table  7  shows  some  of  the  frequencies  of  the  coding  elements  VR(n)  and  V|,(n|  tor  u 
equal  to  or  greater  than  2.  This  indicates  that  the  number  of  elements  wliert  n  it* 
greater  than  4  ia  amall  relative  to  the  frequeneiea  of  other  coding  elements.  For 
comparison  purposeu,  tha  frequencies  of  the  eodlrg  elements  obtained  for  the  H2  corf., 
(including  step  3)  are  shown  In  Table  8.  It  was  found  that  the  omiunton  of  stop  3 
had  very  little  effect  upon  these  otatiitiea. 

Thu  results  relate  to  documents  recorded  on  a  magnetic  tape  mode  available  hy  the 
French  Administration.  Subsequent  tenting  of  the  R2  and  other  codes  will  b<  ticrfnr-.  t 
according  to  the  agreed  lout  criteria  using  a  now  magnetic  tap..-  which  hmi  b «■»**  provi.t  < 
rccen'ly  by  the  French  Administration. 
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5.  Conclusions 

This  contribution  proposes  thst,  by  making  a  number  of  changes  to  the  READ  coding 
scheme,  the  performance  of  the  scheme  can  be  improved.  These  changes  allow  higher 
compression  factors  to  be  obtained,  simplify  the  coding  and  decoding  processes  and  may 
offer  an  improved  performance  in  the  presence  of  transmission  errors.  Further  measure¬ 
ments  are  needed  to  determine  the  usefulness  of  the  options,  ie  step  3  and  resettable 
K,  described  in  the  R2  codei 
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ANNEX 


THE  B 2  CODING  SCHEME 


I*. 2  Two-dimensional  coding  scheme 

The  two-dimensional  coding  scheme  is  an  extension  of  the  one-dimensional  coding  scheme 
specified  in  Paragraph  4.1. 

4.2.1  One-dimensional  coding 

a.  Fixed  K  Parameter 

The  first  scan  line  is  transmitted  by  one-dimensional  coding.  Also  every 
Kth  line  following  the  first  line  is  transmitted  by  one-dimensional  coding 
to  limit  the  vertical  spread  of  damage  caused  by  transmission  errors.  The 
following  K-l  lines  are  coded  by  two-dimensional  coding. 

The  transmitter  determines  which  lines  are  transmitted  by  one-  or  two- 
dimensional  coding  by  adding  a  single  flag  bit  after  the  EOL  codeword  as 
shown  in  Paragraph  4 ,2.2e. 

b.  Resettable  K  Parameter 

This  is  an  optional  procedure  which  may  be  used  to  enable  higher  compression 
values  to  be  obtained. 

If  one  of  the  K-l  lines  following  the  Kth  line  complies  with  either  of  the 
following  conditions,  then  that  line  is  transmitted  by  1-dimensional  coding 
and  the  value  of  K  is  again  set  equal  to  the  K  parameter. 

i.  A  scan  line  which  is  not  all  white  but  which  follows  an  all 
white  scan  line. 

ii.  An  all  white  scan  line  which'  follows  a  scan  line  which  is  not 
all  white. 

c.  Value  of  the  K  Parameter 

The  value  of  the  K  parameter  should  be  set  as  follows. 

Normal  resolution  standard  :  K  -  2 
Higher  resolution  standard  :  K  =  4 

d.  One-dimensional  coding  method 

This  conforms  with  the  description  in  Paragraph  4.1. 

4.2.2  Two-Dimensional  Coding 

This  is  a  line-by-line  coding  method  in  which  the  position  of  each  changing  picture 
element  on  the  current  or  coding  line  is  coded  with  respect  to  the  position  of  a 
corresponding  reference  element  situated  on  either  the  coding  line  or  the 
reference  line  which  lies  immediately  above  the  coding  line.  After  the  coding 
line  has  been  coded  it  becomes  the  reference  line  for  the  next  coding  line. 
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a.  Definition  of  changing  picture  elements 

A  changing  element  is  defined  as  an  element  whose  "colour"  (ie  black 
or  white)  is  different  from  that  of  the  previous  element  along  the 
same  scan  line. 

a  The  reference  or  starting  changing  element  on  the  coding 

line.  At  the  start  of  the  coding  line  a<3  is  set  on  an 
imaginary  white  changing  element  situated  just  before  the 
first  element  on  the  line.  During  the  coding  of  the  coding 
line,  the  position  of  is  defined  by  the  previous  coding 
mode  (see  Paragraph  4.2.2b). 

The  next  changing  element  to  the  right  of  aQ  on  the  coding 
line.  This  is  the  nex^  ^’ement  to  be  coded. 

a  The  next  changing  element  to  the  right  of  a.  on  the  coding 

2  line. 

bj  The  first  changing  element  on  the  reference  line  to  the  right 

of  a  and  of  opposite  colour  to  a  . 
o  o 

b  The  next  changing  element  to  the  right  of  b^  on  the  reference 

line. 

b.  Coding  Modes 

une  of  three  coding  modes  are  chosen  according  to  the  coding  procedure 
described  in  Paragraph  4.2.2c  to  code  the  position  of  each  changing  element 
along  the  coding  line.  Examples  of  the  three  coding  modes  are  given  in 
figure  2. 

i .  Pass  mode 

This  mode  is  identified  when  the  position  of  b^  lies  to  the  left  of 
aj.  If  the  position  ol  b2  lies  directly  above  a^,  then  this  does  not 
constitute  a  pass  mode.  When  this  mode  has  been  coded,  ao  is  set  on 
the  element  of  the  coding  line  below  b2  in  preparation  for  the  next 
coding. 

ii.  Vertical  mode 

When  this  mode  is  identified,  the  position  of  ax  is  coded  relative  to 
the  position  of  bj.  The  relative  distance  aibj  can  take  on  one  of 
seven  values  V(0),  Vr(1),  Vr(2),  Vr(3),  Vl(1),  Vl(2)  and  Vg(3),  each 
of  which  is  represented  by  a  separate  codeword.  The  subscripts  R  and 
L  indicate  that  ai  is  to  the  right  or  left  respectively  of  b}  and  the 
number  in  brackets  indicates  the  value  of  the  distance  a^b^.  After 
vertical  mode  coding  has  occurred,  the  position  of  a0  is  set  on  ax* 

iii.  Horizontal  mode 


When  this  mode  is  identified,  both  the  runlengths  axaQ  and  axa2  are 
coded  using  the  codewords  H  +  M(a0ai)  ♦  M(axa2).  H  is  the  flag 
codeword  'Oil'  taken  from  the  2-dimensional  code  table.  M(a0ax)  and 
M(aiag)  are  codewords  which  represent  the  length  and  "colour"  of  the 
runs  a0ax  and  a^aj  respectively  and  are  taken  from  the  appropriate  white 
or  black  modified  Huffman  code  tables.  After  a  horizontal  mode  coding, 

the  position  of  a„  is  set  on  a 

w  ✓ 
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c.  Coding  Procedure 

The  coding  procedure  identifies  the  coding  mode  that  is  to  be  used  to  code 
each  changing  element  along  the  codins  line.  An  adaptive  procedure  may  be 
uaed  in  some  cases  to  determine  which  coding  mode  will  provide  the  most 
efficient  coding.  Vfhen  one  of  the  three  coding  modes  has  been  identified, 
an  appropriate  codeword  is  selected  from  the  code  table  given  in  Table  1. 
The  coding  procedure  is  formally  defined  by  the  flow  diagram  given  in 
Figure  1. 


Step  1 

i.  If  a  pass  mode  is  identified  this  is  coded  using  the  codeword 
'0001'  (Table  i).  Return  to  the  start  of  the  coding  procedure. 


ii.  If  a  pass  mode  is  not  detected  then  proceed  to  Step  2. 


Step  2 

Determine  the  absolute  value  of  the  relative  distance  a^b^ 

l.  If  la^bjl  >3  then  transmit  the  distances  aQaj  and  ajao  by 
horizontal  mode  coding  (Paragraph  4.2.2b).  Heturn  to  the  start 
of  the  coding  procedure. 

ii.  If  |a|bj|  <3  then  transmit  the  relative  distance  by 

vertical  mode  coding  (Paragraph  4.2.2b).  Return  to  the  start 
of  the  coding  procedure. 

Step  3 

This  is  an  adaptive  coding  procedure  which  ensures  that  the  most  eflicient 
coding  node  is  used  to  code  the  position  of  aj .  This  optional  step  replace 
Step  2  i i ) . 

If  |a^b^|  <3  then  determine  the  value  of  £aibi},  le  the  number  of  bits 
required  to  code  the  relative  distance  a^bj  by  vertical  mode  coding.  Also, 
determine  £a0aij,  the  number  of  bits  required  to  code  the  distance  a0aj  by 
horizontal  mode  coding.  This  is  equal  to  H  t  M(a0a^),  where  H  is  the  flag 
codeword  'Oil'  and  MlaQa^)  is  the  codeword  taken  from  the  appropriate 
modified  Huffman  code  table  and  represents  the  "colour"  and  run-length 
value  of  a0a^. 

Casei:  Cv*l3  >  Calbl3 

Code  t»jbj  by  vertical  mode  coding.  • 

Case  2:  0oai3  <  Calbl3 

Code  both  the  distances  aQa^  and  “ia2  by  horizontal  mode  coding. 

The  use  of  this  optional  step  does  not  affect  interworkini'  between  Group  3 
facsimile  machines. 


(2531) 
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d.  Coding  the  first  and  last  picture  elements  on  a  line 

i.  The  first  run  length  on  a  line  aQai  is  replaced  by  aga^-1. 
Therefore,  if  the  first  run  is  black  and  is  deemed  to  be  coded  by 
Horizontal  mode  coding,  then  the  first  codeword  M(a0a^)  corresponds 
to  a  white  run  of  zero  length. 

ii.  The  coding  of  the  coding  line  continues  until  the  position  of 
the  imaginary  changing  element  situated  just  after  the  last  actual 
element  has  been  coded.  This  may  be  coded  as  aj  or  a Also,  if 
bi  and/or  b2  are  not  detected  at  any  time  during  the  coding  of  the 
line,  they  positioned  on  the  imaginary  changing  element  situated 
just  after  the  last  actual  picture  element  on  the  reference  line. 

e.  Line  synchronization  codeworu 

To  the  end  of  every  coded  line  is  added  the  end-of-line  (EOL)  codeword 
' OOOOOOOOOOO 1 ' .  The  EOL  codeword  is  followed  by  a  single  flag  bit  which 
indicates  whether  or.e-  or  two-dimensional  coding  is  used  for  the  next 
l  ne  . 

The  flap  bit  is:- 

1  :  one-dimensional  coding  of  next  line 
0  two-dimensional  coding  of  next  line 

f .  till  bits 

i ill  bits,  consisting  of  variable  length  strings  of  '0's  may  be  inserted 
beiure  the  EOL  codeword  as  specified  in  Paragraph  4.1c. 

g.  Heturn  to  control 

The  format  used  is  the  same  as  specified  in  Paragraph  4. Id. 
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MODS 

ELEMENTS  TO  BE 

CODED 

NOTATION 

CODEWORD 

PASS 

V  bj 

P 

0001 

HORIZONTAL 

Vi*  *1% 

H 

Oil  ♦  )  ♦  Min^i 

VERTICAL 

JUST 
UNDER  b! 

■ibj  w  0 

V(0) 

1 

Oj  on  the 
right 
of  bj 

•ibi  -  1 

VR(«ibj) 

001 

°ibi  ■ 

000011 

“lbi  "  3 

00000) 

u*  on  tin* 
left 
of  bi 

Vi  - 1 

V.V 

1 

010  I 

“lbl  *  2 

0000 10 

"lbl  -  5 

0000001 

knd-of-unk  codeword 

EOL 

000000000001 

A  '1'  or  a  'O'  l  lua  bit  in  added  to  the  EOL  codeword  to  indicate  thut  llu*  l «•!  t 
>tcnn  line  iw  coded  by  <nu‘-iHm«*riiiional  coding  or  two-rtlmnnninmi  r*r»»1 1 1»|» 
rcupeetlvuly. 
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Pass  Mode 


V 

Reference  line  t 

77Z 

'4 

V/s 

.■  •*  >» 

'>y 

3? 

V.. 

>7 

7Z 

'Ss 

T 

V 

& 

S9 

& 

S 

TTl 

'A 

yy\ 

/ 

Coding  line  J 

% 

>y. 

JL- 

■ 

S3 

S5 

0 

m 

a, 


°1^1 Vertical  Mode 


Reference  line 

% 

i 

>> 

'  /  / 

7? 
t  / 

m 

II 

■ 

Coding  line 

A- 

>r> 

/V 

m 

H 

■ 

a0  a,  a2 


i< - ■>!<■ - —  *\ 

l  a0o,  I  a, a,  I 

* - Horizontal  Mode - < 


Figure  3  **  The  R 2  code  tree 
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TABLE  1> 


ber  of  coded  bite  -  the  R2  code  (step  3  included 


DOCUMENT 


0  msecs 
WITHOUT 
EOL 


0  msecs 
WITH 
EOL 


5  msecs  I  10  msecs  I  20  msecs 


125430  139085 


3613S9  376829  377898  386194 


186752  202222  I  202384  208923 


354784  370254  370254  374906 


Number  of  coded  bits  -  the  R2  code  (step  3  omitted) 
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TABLE  6 

frequencies  of  coding  elements  -  the  read  code 


DOCUMENT  P  J  H  V(Q)  I  VR(l)  VL(1)  VR( >  2)  j  VL(>2) 


810  I  1814  4048  1315  1262 


3640  1  7568  15217  5508  I  4577  2953 


1603  1  2912  10240  2536  2457 


4035  I  7470  13295  2801  5311 


TABLE  7 


Frequencies  of  the  coding  elements  VR(n).  V^( n), 
where  n  >  2.  for  the  read  code  _ 


DOCUMENT 


Vr(2) 

V2) 

V31 

V3) 

V>4) 

V* 

444 

304 

141 

104 

138 

00 

2016 

1378 

781 

418 

156 

115 

629 

520 

247 

141 

96 

73 

604 

1518 

236 

421 

143 

396 

j  7  604  |  1518  236  4CJ 

TABLE  8 

Frequencies  of  coding  elements  -  the  R2  code  (including  step  3) 

DOCUMENT  V  H  V(0)  VRU)  VLC1)  VR(  2 )  VL<2)  VR(3)  VL(3 

i  792  2130  3958  1279  1218  323  227  132  47 

4  3565  8508  15008  5395  4265  1552  1042  e9b  128 

i,  1 422  3266  10081  2591  2429  474  393  241  50 

7  3858  8363  13141  2746  5134  481  946  228  263 
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STUDY  GROUP  XIV  -  CONTRIBUTION  No.  82 

nBHmzrBSHnxauxaasaaiiinxsEiis 

SOURCE  :  FEDERAL  REPUBLIC  OF  GERMANY 

TITLE  :  TWO-DIMENSIONAL  CODING  SCHEME 

(Reply  to  Collective-letter  No.  60) 


Ir.  traduction; 

A  tvo-diner.aior.al  coding  scheme  for  Group  3  facsimile  apparatus  is 
described  as  announced  at  the  last  meeting  of  Study  Group  XIV  in  Geneva, 
December  11,  -  15.,  1978.  Differing  from  other  proposals  (IBM  and  Japan) 
this  code  makes  use  of  a  prediction  method. 

Ar.r.cx  1  gives  a  detailed  description  of  the  code.  Results  of  this  code 
ir.  comparison  to  other  two-dimensional  oodes  will  be  presented  in  a 
later  contribution. 

This  code  gives  a  very  good  performance,  i.  e.  the  compression  factor 
is  very  high.  Error  susceptibility  is  comparable  to  other  two-diaen- 
sicr.al  codes.  This  code  uses  a  set  of  code  word  tables,  which  require 
a  256-word  memory.  One  should  take  into  account  that  implementation 
costa  of  memories  are  dropping  constantly. 

3esides  high  efficiency  there  is  a  distinct  advantage  of  a  clear 
patent  situation.  The  owner  of  the  respective  patent  will  grant  a 
duty-free  licence  to  everybody. 

An  obligatory  declaration  is  given  in  Annex  2. 

Annexes  :  2 
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ANNEX  1 


TWO-DIMENSIONAL  CODING  SCHEME 

The  two-dimensional  coding  scheme  is  a  line-by-line 
coding  method.  It  is  an  extension  of  the  one-dimensional 
coding  standard. 

1  .  Parameter  k 


For  reasons  of  restricting  error  propagation,  one¬ 
dimensional  coding  with  Modif ied-Huf fman-Code  is  used 
for  the  first  of  every  k  lines.  The  parameter  k  can 
be  chosen  to  k»2  for  normal  vertical  resolution  and 
k«4  for  higher  vertical  resolution.  Parameter  k  is 
set  k»<®  ,  if  transmission  on  data  links  with  error 
control  is  used. 

2.  Or.e-dinenslonal  coding 

One-dimensional  coding  of  a  scan  line  conforms  with 
coding  the  run  lengths  by  Modif ied-Huf fman-Code. 

3.  Two-dimensional  coding 

The  first  step  in  the  encoding  process  is  to  make  a 
prediction  of  the  present  picture  element  XQ  from  the 
neighbouring  picture  elements  X^  to  (Fig.  1). 

Table  1  shows  the  predicted  value  XQ  depending  on  the 
four  preceeding  surrounding  picture  elements  X^  to  X^. 
Each  black-and-white  pattern  of  these  four  picture 
elements  defines  a  different  source  state  S^.  For  each 
state  there  are  Individual  conditional  probabilities 
P(Xc/Sj)  that  the  present  picture  element  XQ  will  be 
white  or  black.  Now  the  predicted  value  is  the  more 
probable  one  in  the  given  state  S^.  Then  the  predicted 
value  is  compared  to  the  real  value  of  XQ.  Each  time 
the  prediction  is  right,  a  white  pel  is  inserted  for  XQ. 
When  the  prediction  is  wrong,  XQ  is  replaced  by  a 
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black  pel.  The  resulting  picture  of  prediction  errors 
is  a  one-to-one  transformation  of  the  original  picture, 
which  means  that  all  the  information  of  the  picture  can 
be  transmitted  by  coding  the  positions  of  the 
prediction  errors. 

The  second  step  in  the  encoding  algorithm  explained 
here  is  to  encode  the  run  lengths  between  prediction 
errors  as  it  is  shown  in  Fig.  2.  This  is  not  done  by 
coding  the  run  lengths  between  every  prediction  error. 

The  runs  are  encoded  here  separately  for  each  source 
state  Sj.  For  example  the  source  is  five  times  in 
state  SQ  until  the  first  prediction  error  occurs  in 
state  SQ.  So  the  run  length  to  be  transmitted  is  5. 

For  state  S1  there  is  a  prediction  error  the  third 
time  the  state  S^  occurs,  so  the  run  length  is  3,  etc. 

For  each  state  an  optimal  run  length  code  stored 
in  an  memory  is  used  to  transmit  the  run  lengths 
between  the  prediction  errors  of  state  (table  2) . 

The  storage  of  the  run  lengths  codes  requires  a  memory 
of  256  code  words. 

The  run  lengths  codes  used  here  are  Truncated-Huf fman- 
Codes,  earlier  described  in  /I/. 

The  encoder  has  to  arrange  the  coded  run  lengths  to  be 
transmitted  in  a  sequence  corresponding  to  that  of  the 
states  (Fig.  3).  For  example,  first  the  encoder  transmit 
the  run  length  5  of  state  SQ  since  the  current  line  starts 
with  SQ,  then  the  run  length  2  of  state  S2  follows, 
afterwards  the  run  lengths  of  state  Sg  and  state 
etc. 

Each  scan  line  is  terminated  by  a  hypothetical  prediction 
error  at  the  end  of  the  current  line. 

Each  hypothetical  picture  element  outside  the  page, 
which  is  requested  for  prediction,  is  assumed  to  be 
white.  For  example,  for  prediction  of  the  first  pel  XQ 

In  an  arbitrary  line  X,  and  X.  are  assumed  to  be  white. 

1  B-3  4 


-  4  - 

COM  XIV-No.  82-E 


4.  Line  synchronisation 

The  line  synchronisation  signal  used  here  conforms 
with  the  EOL-Code  used  by  the  Modlf  ied-.Huf  fman-Ccde. 
A  string  of  eleven  "O*  followed  by  a  "1“  is  used. 
Additional  one  bit  following  the  EOL-Code  indicates 
one-dimensional  or  two-dimensional  coding  of  the 
succeeding  line.  A  "0"  indicates  one-dimensional 
coding/  a  "1M  indicates  two-dimensional  coding. 

To  make  the  line  synchronisation  sicnai  unique,  a 
"1"  is  inserted  in  the  data  stream  after  occurence 
of  ten  continuous  "0"s. 


5.  Fill  bits 

Fill  bits  are  used  to  obtain  the  minimum  transmission 
time  per  line  requested  by  the  system.  A  variable 
string  of  "0"i  is  inserted  in  the  EOL-Code. 

6.  Return  to  control 

End  of  document  transmission  is  Indicated  by  six 
consecutive  EOL-Codes. 

7.  Compression  factor 

Fig.  4  shows  the  compression  factor  CF^  achieved  by 
the  two-dimensional  coding  with  parameter  k* <*  ,  no 
overhead  for  the  eight  testdocuments  with  1728  pels/ 
line  and  2128  lines/page. 


/I/  COX  XIV,  Doc.  G3,  No.  38 
Dr.-Ing.  Rudolf  Hell  GmbH 
CCITT,  Genf 
October  1975 
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TABLE  2.1 


Code  Words 


•  0 

-rce  S„ 

0 

cource  etete  1^ 

rjn 

code 

run 

code 

length 

word 

length 

word 

1 

OLLOLL 

1 

LOLL 

2 

00  LOO 

2 

LOO 

3 

OGCOL 

1 

OLL 

4 

OLOL.L 

4 

LLO 

i 

5 

OOOL 

4 

LLLOO 

4 

OOLL 

3 

LLLOL 

7 

LLLL 

1 

0L0L0 

00  LOO 

f 

OLLLL 

0 

OLOLO 

lo 

OOOLL 

1© 

OLOLL 

1 1 

OOLLL 

11 

LLLOL 

12 

OLLOOO 

12 

0003  LO 

1  3 

OOOLOL 

11 

OLOOOO 

M 

OOOOOL 

1  4 

OLOOOL 

is 

OOLOLL 

13 

LLLOOO 

14 

LLLLOOO 

14 

OOOOOOL 

17 

LLLLOOL 

17 

OOLOLOO 

it 

OLOOLLO 

11 

OOOOOLO 

19 

OLLOOLL 

19 

OOOOLLL 

Jo 

OLOOLOL 

2o 

LOLOLOL 

J1 

OLOOLLL 

21 

LLLOOLO 

22 

0LL0L0L 

22 

LOLOLLO 

21 

OLOOOLO 

23 

OLOOLOL 

2  4 

OLOOLOO 

24 

OOOOOLLL 

25 

OLLOOLO 

23 

OOOOLLOO 

24 

OLOOOLL 

24 

OOLOLLOL 

27 

OLLLOLO 

27 

OOLOLOLL 

21 

OLLLOCL 

21 

OOLOLLLL 

29 

OOOLOOL 

11 

OOLOLLOO 

3o 

OCLOLOO 

lo 

OOOOOOOL 

31 

OOLLOLO 

11 

OLOOLLLO 

32 

OOLOLOL 

12 

OOOOLLOL 

13 

OObLOOL 

11 

0 LOO LOO L 

3  4 

CLOOOOOO 

14 

0 LOO L LOO 

35 

OLOOOOOL 

35 

OLOOLLLL 

34 

LLLLOLLO 

34 

LOLOLLLO 

37 

LLLLOLLL 

37 

LLLOOl LO 

31 

LLLLOLOL 

31 

OLOOLOOOL 

39 

OLLOLOOL 

30 

OOLOLLLOL 

4o 

OOOLOOOL 

4o 

OOOOOLLOO 

41 

OLLLOLLL 

LOLOLOOOO 

42 

OLLLOC/OL 

LLLOOLLLL 

41 

OOLLOLLO 

43 

LOLOLLLLL 

44 

OOOLOOOO  j 

44 

LLLOOLLLO 

43 

OOOOOOLL 

43 

LOLOLOOLO 

44 

OOOOOOOL 

44 

OLOOLLOLL 

47 

OOLLOOOL 

47 

00000 LLOL 

40 

OOLLOOOO 

40 

LOLOLLLLO 

4  0 

OOLLOLLL 

40 

OOLOLOLOL 

So 

OOOOOOLO 

So 

LOLOLOOOL 

51 

OLOOOOLOL 

31 

OOOOOOOOL 

52 

OLLOLOOOO 

32 

OOLOLOLOOO 

51 

UlLOLOOL 

51 

OOLO LLLOOO 

54 

OLLLOLLOL 

34 

OOLOLL  LOOL 

53 

LLLLOLOOO 

33 

OLOOLLO LOO 

54 

OLLOLOCOL 

54 

OOOOOOOOOL 

37 

CLOOOOLLO 

37 

OO  LOU)  LOOL 

51 

OLLLOLLOO 

St 

LOLOLOOLLO 

59 

OUXJOOLLL 

30 

LOLOLOOLLL 

4© 

OLOOOOLOO 

4© 

OLOOLOOOOL 

41 

OLLLOOOOL 

•  * 

OLOOLLOLOL 

42 

OLLLOOOOO 

43 

OLOOLOOOOO 

43 

OOOOOOOOL 

01 

OOOOOOOOOOL 

44 

OOOOOOOOOL 

44 

OOOOOOOOOOOL 

17  24 

LU3  , 

43-1720 

LOLOO  (peat lei 

45-1727 

LO  (prefla) 

600) 


*The  pref la  la  followed  by  the  run  length  coded  in 
11-bit  binary  notation,  Mit  elgnlflcant  bit  flrat. 


B-9 
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COM  XIV-No.  82-E 
TABLE  2.2 


Code  Words 


j  »onc»  acuta  St  aM  *t< 

tourct 

atata  S}  ami  S,, 

rur. 

coJe 

run 

cod* 

word 

lang th 

word 

i 

L 

1 

OLO 

i 

C-0 

3 

LO 

J 

OOL 

3 

OOL 

4 

ol:.o 

4 

LLL 

5 

070  L 

s 

OLLL 

* 

OLLLL 

t 

LLO0 

7 

ol: loo 

7 

OLLOL 

i 

OOOOOL 

t 

OOOOL 

* 

OOOOLL 

il 

LLOLO 

lo 

0000 LOL 

OLLOOL 

1 1 

OLLLOLOL 

1  1 

OOOOOL 

13 

OO OOOOLL 

13 

000 LLO 

ii 

OOOOLOOO 

13 

OOOLLL 

14 

OLLLOLOOO 

14 

OLLOOOO 

IS 

OOOOOOOLO 

IS 

OOOOOQL 

u 

OOOOOOOOL 

It 

OOOLOOO 

1  7 

OOOOLOOLL 

17 

LLOLLLO 

1  6 

OLLLOLOOLL 

ia 

OOOLOLL 

11 

OOOOOCLCLO 

IS 

OLLOOOLO 

2o 

OOOOOOLOLL 

Jo 

OLLOOOLL 

31 

OOOOOOOLLO 

31 

OOOLOOLO 

7  J 

OOOOOOOLLL 

33 

OOOLOLOO 

4  J 

OOOOLOOLOO 

33 

OOOOOOOL 

34 

OOOOOOLOOL 

74 

LLOLLLLO 

3S 

OCOOOOOOOL 

33 

LLOLLLLL 

34 

OOOOLOOLOL 

31 

OOOLOOLLL 

37 

olllol»;lol 

37 

OOOLOOLLO 

31 

OOOOOOOOOOL 

31 

OOOU5LOLO 

34 

OLLLOLOCLOO 

34 

OOOOOOOOL 

Jo 

OOOOOOLOOOO 

Jo 

OOOLOLOLL 

)1 

OOOOOOLOOCL 

31 

OOOOOOOOOL 

33 

OCVDOOOCOOOO^ 

33 

OOOOOOOOOOL 

33*1731 

OLLLOLL  (prafla) 

33-1731 

LLO LLO  (prafla) 

•Otirca  4tat«  Sj  «nd  S ^ 

•ourct 

*****  *3'*4,*S',7'*l’*1o',1 1  *n<1  *1J 

fun 

cod* 

run 

cod* 

i«r.<jth 

word 

langth 

word 

1 

4. 

1 

OLO 

3 

CL 

3 

L 

3 

OOCL 

J 

OOL 

4 

00  LL 

COOL 

3 

OC  LOO 

OLLLL 

4 

or  oocl 

OLLOOL 

7 

oeocLO 

7 

OOOOOL 

4 

OCLCLL 

OOOOLO 

» 

DOOCDOL 

4 

OLLOOOL 

lo 

OOOOLLL 

1o 

0 LLO LOO 

1 1 

00  wC  wO  L 

1 1 

OLLOOOO 

13 

OOOOOOOL 

13 

OLLLOOL 

1  J 

COoCLLOL 

13 

OOOOOOL 

14 

OOLOLOOL 

14 

OLLLOOO 

IS 

OOOOLLOOL 

IS 

OLLOLLL 

14 

OOLOLOOOL 

It 

OLLLOLO 

17 

OOOOOOOOOL 

17 

OOOOLLO 

It 

OOOOLLOOOO 

’• 

OOOOOOOL 

11 

OOOOLLOOOL 

OOOOLL LL 

2o 

OOLCLOOOOL 

2o 

OLLLOLLO 

31 

OOLOLOOOOO 

31 

OOOOL LLO 

33 

ooooo>:olll 

33 

OLLOLLOOL 

33 

OOOOCOOOLLO 

33 

OOOOOOOOL 

34 

OOOOOOOOOOL*# 

34 

0  LLO  LLOLO 

3  S 

OOOOOOOOOOOL 

OLLLOLLLO 

3a 

OOOCOOOOOC  Lu 

3S 

OLLLOLLLL 

37 

COOOOOOOLOOO 

37 

OLLOLLOLLL 

31 

O^X>OOOOOOOOOL 

31 

OLLOLLOLLO 

34 

OjOOOCOOLOOLL 

34 

OOOOOOOOOL 

Jo 

OOOOOOOOLOOLO 

Jo 

OLLOLLOOOO 

31 

oooooooooooool 

31 

OLLOLLOOOL 

33 

COOOOOOOOOOOOO  L 

37 

OOOOOOOOOOL  4 

33-173* 

COOOOCrOCLOL  (prat  la) 

33-1731 

OLLOLOL  (prafla) 

*  prafla  l*  folloaat  by  tha  run  langth  cod  ad  lnli-blt  binary  nouilon.  »o»t  aignlflcant 

(2600)  „lt  flr,t.  g.io 
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COM  XlV-No .  82-E 


ANNEX  2 


DR.-ING.  RUDOLF  HELL 


OS  INI,  SUDOI  »  Htu  GMBH  PUSTT4CH  «J  3»  7300  mfl  >4 

INFORM  AT  IONSTECHNIK 

Fe rnmeldetechnisches  Zentr&lamt  ELEKTRONIK  FUR  SAT  Z 

der  Deutschen  Bundespost 

Hefe rat  A  26  UNO  REPRODUKTlON 

Am  Kavalleriesand  3 

6100  Darmstadt 


.’(CHf  N  UtlO  INOf  MCx»iCHl  »  ’«  UHStn  JfCJIls  0U«CHV»»MI  GRIN.’S'S'I  Ji.-r.ifi  '« 

Lf/fabs.  309  19th  March,  1 979 

The  following  Is  a  translation  of  a  declaration  or  our  company 
which  was  directed  to  the  FTZ  on  November  10,  1973. 

A  copy  of  the  original  German  text  is  attached. 

Declaration 


In  the  case  that  the  method  of  a  two-dimensional  coding  according 
to  our  German  patent  no.  25  56  803  "Process  for  Data  Compression 
of  Binary  Coded  Picture  Signals"  should  be  part  of  a  CCITT  recom¬ 
mendation,  we  irrevocably  commit  ourselves  to  grant  by  request 
a  duty  free  licence  to  the  above  mentioned  patent  to  everybody. 
This  declaration  will  also  be  valid  for  our  legal  successors. 

DR.-ING.  RUDOLF  HELL  GMBH 
signed  by  Taudt  Marhencke 


SUCMSOC' 
vC*>SlT7lN0f“  prs  «u«s 
01  PI  flU  (PNS»  fP'CM  M*PM|SC«I  WPV'NO 


wfSn  0«C  TQiChSOOP*  TCI  (04  in  J00<  '  TllHCJ«7»'»  »»•  '04  Hi  1001  44?  . 

.  ,  in.11,  un  I  ft!  .01)11  WITH  TlllL,S4MMfMlilG!M»CTl4itl  »PC  CODI  *  I 

INC  o«  |»G  I  H  Puooi'  »lu  giscmushihuio  P«  »»" 

tauOT  s.w  ofPorstuscH.M  h»  -l.  .p' 


:  1 1  io*« 
i .  r  *4  v 

P  NW  fr'  . 


(2600) 
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APPENDIX  C 

SUBROUTINES  WHICH  ARE 
COMMON  TO  ALL  ALGORITHMS 


APPENDIX  C 


SUBROUTINES  WHICH  ARE  COMMON  TO  ALL  ALGORITHMS 


PROGRAM  NAME  FUNCTION  PAGE 

REDTAP  32  .  .  .  .Read  input  image  tape . 0-1 

CODELN . Line  Code  Subroutine  of  "Ehcode"  Subroutine  .  .  C-2 

STATS . Computes  Statistics  of  Coded  Lines . C-3 

BLOCK  DATA  .  .  .  Initializes  Packing/Unpacking  Masks . C-h 

MI2B  .  Packing  Subroutine  . C-S 

IUB . Unpacking  Subroutine . C-6 

ERRMES  .  Error  Measurement  Subroutine  .  C-7 

WRITAP  32  .  .  .  .Converts  binary  data  to  Input  Format . C-9 

CONVERT . Converts  binary  data  to  IBM  Printer  Format.  .  .  C-10 


UKV.LK9J1  ri  cu 


START  CF  DCEC  UPRINT  PROGRAM  OSN AM E=  00031  .REOTAP .FORT 

C  PROGRAM  REDTAP32 

c  . .  ■— ' 

IMPLICIT  INTEGER!  4-Z) 

INTEGER  PEL  3UF  (1500)  ,0  TBUF( 60 ) 

DATA  ’3. MAX  .PELF IL. OTF  IL, TERM/ 1 7  28. 1.2.5/ 

C***************************  BEGIN  PROGRAM  ***************************** 

C 

INLNCT=0 
150  CONTINUE 

DO  100  1=1,60 

too  otbufj  n=o 
10=1 

XF=250  -  .  . . . . 

READ!  P3.FIL  .300,  cN0=500)  IC.J 
300  FORMAT(250I4)  ^ 

J1=J 

316  IF (J.GT.2 SO )  GO  TO  315 
JI0i  =  J*I3-l 

READ! PcLF IL.300)  ( P EL3UF ( K ) . K= I D . J I D 1 ) 

GO  TO  400 

315  CONTINUE  '  -  .  - . -  -  ' 

RE AO (PELF IL.300J  ( PELBUF ( K ) . K= I  0 . I F ) 

I0=IF*1 
IF=IF*250 
J=  J-250 

IF(J.EQ.G)  GO  TO  400 
GO  TO  316 
40  0  CONTINUE 

IF (INLNCT.GT.200)  GO  TO  450  -  — 

C  WR  ITE(  TERM,  410)  IC.Jl 

410  FORMAT  (5  X.  I  4. 5X,  16) 

C  WRITE! TERM, 420)  ( PE LBUF ( K ) , K=1 , Jl ) 

420  FO  RM  AT (2X.20(  I4.2X)  ) 

450  CONTINUE 
OTELP=l 
00  460  1*1, Jl 

RUN=PEL9UF(  I  )  .  ..  . - 

IF(RUN.EQ.O)  GC  TO  700 

OO  470  K= 1 .RUN 

CALL  M  1 2B ( I C. OTBUF , CTELP . 1 ) 

OT  ELP=0TELP*1 

IF( JTELP. GT.PELMAX)  GO  TO  480 
470  CONTINUE 

IC=MOD(IC*l ,2) 

460  CONTINUE 
430  CJNTINJE 

1 NLNC  T  =1  N  LNC  T*1 

4RITE(0TFIL)  INLNCT .PELMAX. OTBUF 
GO  T -1  150 
50  0  CONTINUE 

WRI TE ( TER  M, 310)  INLNCT , I NLNCT 

510  FOR1A7(»OLINES  WRITTEN  =',I6,«;  LAST  LINE  NUMBER  =’,I6) 

STOP 

600  CONTINUE 
STOP  600 
700  CONTINUE 
STOP  700 
END 

0  END  OF  DCEC  UPRINT  PROGRAM  LINES  PRINTED®  59 


t 


C-1 


UNCLASS IFIEO 


nonn  nor>o  o  r><oc>  or>o 


UNCLASSIFIED 


3TA.iT  OF  OCEC  JPW  INT  PROGRAM  OSNAME=DOOC'1.CCPELN.FORT 

3U8A JUTINE  CJOHLNi  L3N3TH.  POL  AW,  CCELCT,  CODA  T  A  > 

C  “ 

IMPLICIT  INTEGER!  4-2) 

CO  M  4  CN/-3UFF/PEL  :iUr  ( t  0 .2  )  .  CDQUF<24P  ) ,OTBUF<50. 2  )  . 

*  STFUUF{240).  STAT(EOOO) 

CEP-JCN/HUFF/CODEO .92.2  J.COUE'KO!  2 , 9  ) 

CO  4  4  w  J  /H  W  A Y  / E GROPE!  2  50  0  ) 

C 

c*  ***  *  **  **■•■**  ********.•********  *****  FC'.rtl  PROGRAM  *********************** 

INITIALISE  4WKE  JP  COCE.  MAKE  UP  CODE  LENGTH 

MC3DE=0  .  ... 

MLS  43=0 

CHECK  INPJTS 

IF (PCLAR.LT. I .GK.PCLAK .GT.2)  CALL  EXIT 
IF  (LEM  ITH.-T.o  .OR. LENGTH  .GT  .1  723  >  CALL  EXIT 

IF  (LCNGTN.L  E.fcE)  GO  TO  10 

CALCULATE  4  AX  E  OP  C  COE  INDEX.  CODE,  LENGTH 
VO  .--RITE  TO  CODE  LINE 

I  NOE  <=LENG7  V64<-6A 
1C  :0E=ljDE!  3,  INDEX,  POL  .*  r. ) 

■1L  CO  j=  CO  0  E !  1  ,  INDEX,  POLAR  > 

C  ALL  H2J  (MCJOE.  CDHUF.  CDClCT+S  ,  mlENG  ) 

CO E_ CT= CO  EL CT HMlENG 
^.2  0  1  =  C  0  0  A  T A  ■K‘1  u. E .'i  j 

CALCULATE  T  CN  UNITING  CODE  INDEX.  CODE.  LENGTH 
AN  5  OO  TO  C  IDE  L  I  Nc 

i  0  Co  NT  I  JUi 

INDEX®  MOD  (_  ENGTH.lA  )  *-1 
TCCOE=CJOE(  3.  INDEX,  PCL.AR  ) 

tl~ng=c  id E (  i .  index,  pgl  ar  ) 

C/.Ll  4  1 23  IT  CD  Dt  ,  C.Oo  JF  ,  COElC  T ♦  1  ,  TLF  NG  ) 

CO  iL  CT  =  CO  EL  CT  NT  L  EN G 
L  *  ,  — O  0< v  .  A  ^TL'-  4G 
C 

GET  J  .•»  N 
E  N  0 


* 


C  -2 


non  non  non  non  ;  non  I  non 


C 


SUBROUTINE  STATS (LENGTH. INLNCT* DX AG) 

- implicit-  HTE16R!a-z) -  - 

INTEGER  MTT (5).ITT(2,5) . LENGTH ( INLNCT ) 

REAL  sTT (  2*  9) , SUM*  SUM5Q  . 

LOGICAL  OIAG 

C***** ********* *********  FILE  D£FIN1TJCNS  ******************** 

C 

COM  MON/F  I  LSS/ TERM, LPFI L • PELF IL. OTF  IL  •  ERF  IL 
OATA  MTT/0,24. 43, 96*192/ 

I 

*********** *****4*******EEG IN  PRC GRAN******** *************** ********** 

00  300  1*1.  S  -  - -  -  - 

ITT ( 1 .  I  ) *1 3000 
ITT(2.I)»0 

- SUM»0.  - -  -  • 

SUMS 0*0. 

00  100  J*l. INLNCT 

FIND  FILLEO  LINE  LENGTH 

LE N=MAXO ( LENGTH! J ). MTT ( I ) > 

IF(OIAG)  PR  ITE(  TERM  ,  SO  )  LEN 
SO  FORMAT  (18)  . .  —  - -  - 

FIND  MINIMUM  LINE  LENGTH 


UNCLASSIFIED 


UNcLaSSIfIed 


ITT(  1  .  I)a.MJNO(  LEN.ITTt  1  ,1  )  ) 

FIND  MAXIMUM  LINE  LENGTH 

ITT<2,  I)*M.aXO(LEN,  ITT  (2,  I)) 

FIND  SJM  DF  LENGTHS 

SU  M*  SUM*  FLO  AT  (  LEN  ) 

SUMS  3=  SUM S0+< FLOAT  (LEN  )  )**2 
10)  CONTINUE 

FIND  SAMPLE  MEAN  AND  STANDARD  DEVIATION 
STT ( 1 , I ) a  SUM/ FLOAT ( INLNCT) 

STT(  2.I)aS0RT< (5UMSQ-(SUM**2)/FLCAT(  INLNCT ) )/FLCA7(  INLMCT-1  ) ) 

300  CONTINUE 

PRI7E(LPFIL.400) ( I TT( 1 . I ) .1*1 ,5) 

40  0  FORMAT! 

*•0  MINIMUM  TRANSMISSION  TIME  (4800  PPS)'/ 

*•  COOED  LINS*/  "  -  '  ' 

*'  LENGTH  0  MS  5  MS  10  MS  20  MS  40  MS*/ 

*•  statistics:'// 

*•  MINIMUM'. i,0X.5(  18)//) 

PR  IT Zi LPFIL.410) ( 1 TT ( 2 , 1 )  .  I  =  1  ,5 ) 

410  FORMAT  ( 

*•  MAXIMUM' ,10X,5( 18)//) 

PR  IT E ( LPF IL . 420) ( STT( 1  .  I  )  .1  =  1 ,5) 

420  FORMAT! . . .  r .  ~ 

*•  SAMPLE  MEAN' ,9X  ,5(F8.2)//) 

PR  IT  E ( LPF IL . 430 )(STT(2» I ),I  =  1,5) 

430  FORMAT ( 

*•  STANDARD  DEV  I*  TICN  •  .  2X  ,  5(  F  8.  2)  ) 

RETURN 
END 

EfO  OF  DCEC  UPRINT  PROGRAM - -  LINES  PRINTED* 


0 


200 


V'«  C'1 *n  <r*  v  ^  ^  ^  V*  ^  C>  %°  C> 


c 


IMPLICIT  INTEGER  (A -2) 


c 
c 

C J  4MON  /G32£UT/KlalT(32> ,KZal T(32),CI3IT<32> ,LZeiT(32) 

c 
c 

240000000. 2 2050 00C0.Z10C00 00 C. 

Z 04 0000 00. 202 0C 0000, Z0 l 000000, 
200400000. Z 002 OCCCO ,ZC 01 00 OCC. 

Z00C4 00  00 »  ZC002CC00 .Z0001 C  0  0  0 , 

2 00004000. 2 000 02000, Z0000X  00C, 
Z0000040G,Z000002CO,ZOOOC01CC, 

2  00  0  0004  0 ,2000  00020,2  00000010 
200C00004 , Z00000002.200000001 

DATA  KZdIT  / 

Z7FFFFFFF, Z3FFFFFFF, Z DFFF FFFF , Z EFFFF FFF, 

ZF7FFFFFF .ZFQFFFFFF , ZFDFFFFFF , 2FEFFFFFF , 
ZFF7FFFFF, ZFFBFFFFF, ZFF OFF FFF , Z FFEFFFFF , 
2FFF7F-FF. 2FFFBFFFF, Z FFF DFFFF , ZFFFEFFF F , 

2FFFF7F F  r.ZFFFFdFFF, 2FFFFDFFF, Z FFFF E FFF , 
2FFFFF7FF. ZFF  FFFBF  F , Z  FFFFFOFF , ZPFFFFEFF , 
2FFFFFF7F, ZFFFFFFBF, ZFFFFFFCF , ZFFFFF F£F , 

ZFFFFF-r 7 .ZFFFFFFFO. ZFFFFFFFO .ZFFFFFFFE/ 

OATa  L13IT  / 

230  0  0  00  3  3, ZC0C03C0C .ZEOC00033 .Z'OOOCOOC . 
ZF3000C00.2FC000003 .ZFEOOOOOO .ZFFAOOOCC. 

ZFF 30000 O.ZFFC 00000, ZFF ZOO 003, 2 FFF 0 3 OOC. 

ZFFFdOuG  0 , Z FFF COO 00 , ZFFFE0003 . ZFFFFCOOO. 

ZFFFF8  00  0 .ZFFFFCOOC , ZFF FP EO 03 . ZFFFFF 000 , 
ZFFFFF300, ZFFFFF COO . ZFFFFF ECO , ZFFFFF FOC . 
ZFFFFFFaO, ZFFFFFFCO .ZFFFFFFEO .ZFFFFFFFO , 
ZFFFFFFFS.ZFFFFFFFC. ZFFFFFFFE, ZFFFFF FFF/ 

DmTA  LZdIT  / 

Z7FFFFFFF, Z3FFFFFFF, Z 1 FFFFFFF , ZOFFFF FFF , 

Z0  7FFFFFF.Z  03FFFFFF  ,  Z  01 FFFFFF  ,  7.  OOFFFFFF  , 

Z007FFFFF , ZCC3FFFFF, Z0C1 FFFFF , ZOOOFFFFF , 

Z030  7FFFF.Z  000 3FFFF , Z 00 0 l FFFF , ZOOOOFFFF . 

ZOouO  7FFF , ZC0  0C2FFF,  ZOCOO l FFF , Z OOCOCFFF , 

ZOO 000 7r F , ZC00003FF .ZOOOOOIFF.ZOOOOOOFF, 
Z30300C7F,ZOOCCOu3F . Z 00 0 G OC 1 F , ZOOC C 0 C CF , 

Z 0  00000 0  7, Z COO 030 03 ,Z 000 0  0 001  ,Z 0000 0  000/ 

c 

c 

c 

END 

UNCL4SSIFI 


OA  TA  <  13  I  T 


230  00003  3 
Z  0900300  0 
ZOO  8  330  0  0 
ZO  0  0300  0  0 
Z  0000300  0 
Z033)0800 
Z  0  30000  8  0 
Z 00000308 


C  -U 


..  A.._. 


•  V 


or»a  ftnnono 


un^bA3»irici/ 


START  OF  3CEC  UPRWT  PROGRAM  _  DSNAME»D0_031*!4I2B»F0.RT. 

04 12  8 
C 

SUBROUTINE  ^I2H1IVAL» IOA.JO.NB>-  - - - — 

IMPLICIT  I^T2gSR(A-Z> 

01  .MEN SION  I  BA  (2) 

*******  .41 2B  MOVES  THE  BIT  STRING  RIGHT-JUSTIFISO  IN  IVAL 

TO  T  HE  .UA-TH.  TK.il.vt -THE— C  JB.+Nft- 1 1  -TH.  3  I  T  jQF„  1 34* . 

*******  LAB5.EU  COMMON  /G32QIT/  ******* 

COMMON  /G  32  01  T/'4ASK(  32  )  .C  QMASK  (  32  )  . LIB  IT  C32)  .LZBITI 32> 
f  INTEGER  MASK. COMASK .LIBIT. LZBIT 


******  MI23  EXECUTE  *******  _  _ 

JRhH»JB*H'd-2 
N3T*Nd 

JR£=JRH3/32*1  ..  .  .  . 

•JR 8-  M00(  JRH3.32)*! 

N3R*M!N0  (iMdT.  JRBI 

~  LVAL*IVAL  '  -  - - —  - - 

JI  t*  32-N3R 

C  ...  .  . _ . _ ._  . . 

J*  LAND  (L  V  AL  .  L  Zdl  T(  J I M I  » 

K-32-JR3 

LRE-L03(  L  V40( I  8A  (  Jfl£)  .  LZBIT  (  JRB  )  )  .SHFTLt  J  .K  )  ) 
K  =  t?-  I  tm 

LVAL=SHFTR<LVAL.K) 

NUT*N3T-JRB  -  - -  '  . 

C 

199  IFUdTI  309.390.230 
C 

200  I3A(JRE)»LR£ 

JREaJRS-1 

LRE=»LVAL 

LVAL*0 

NBT*NBT-32 . . - 

GO  TO  199 
C 

300  JI  M»— NBT 

LRE*LOR<LRS.LANO(  I B  A ( J  RE ) . L 1 0 1 T  <  J I  4 )  )  ) 

390  I3A(JRE>»LRE 
RETJRN 
C 


noon  no  n<">n  noon  oconnon 


UNCLASSIFIED 


START  OF  JCEC  UPRINT  PROGRAM  DSNAME*C003 1 . 14 8 .FCRT 

Cl  40 

INTEGER  FUNCTION  14 B( I BA . JB, NB ) 

IMPLICIT  INTEGER  (A-Z) 

DIMENSION  I  BA  (21 

*******  I4B  RETURNS  AN  INTEGER  VALUE  FOR  THE  BIT  STRING 

starting  at  the  jb-th  bit  of  ieA 

AND  CONSISTING  OF  NB  BITS. 

*******  L 4SELc O  COMMON  /G328IT/  ******* 

C  J  M  MON  /G32 BIT/ MASK (32 ) . C CMASK <  3 2 ) . L I B I T < 3 2 > . L Z □ I T ( 32 ) 
INTEGER  MASK.COMASK.LIBXT.LZBIT  -  * . - 


*******  i*a  EXECUTE  ******** 

IF(NB-l)  10.30.20 
10  STOP  10 
20  CONTINUE 

JRHd=Jd4NH-2 
NO  T=  MI  NO  (  Nr)  .32  ) 

JR£= JRH3/ 324 1 

JR  3=  M00(  J  RHB.  32)41 

N3R=MI NO ( NOT . JRB) 

JIMs32-NBR 

SHIFT  RIGHT  32- JRB  BITS  AND  PUT  IN  ZEROS  ON  LEFT 

J=  I  ri A  (  JRE  ) 

K=  32— J RB 

I4J  =  LAN0( LZ3IT( JIM)  .SMFTR(J,K)  I 

C\LC'JLATE  NUMBER  OF  BITS  REMAINING  IN  LEFT  PORTION  IF  ANY 
NdR=N3T-NdR 
IF  (NBR  »LE  .0  )  RETURN 

IF  LEFT  PORTION  EXISTS.  SHIFT  LEFT  TO  LINE  UP  VulTH  RIGHT 
PORTION  AND  ‘OR*  WITH  RIGHT  PORT  I GN 

J=LANO< IBA( JRE-1 ) . L  ZB I T ( 32— NBR )  ) 

K— 32— J IM 

I4B=l0R(  I  4d*  SHFTL  (  J  ,  K  )  ) 

RETURN 

C  dIT  STRING  H\S  ONLY  ONE  BIT 
30  CONTINUE 
I  4  d-  J 

J d  IN 3=  (Jd-1  )/324i 
MSKI NO = JB - ( JUIND-1 ) *32 

IF(LANO(MASK<  MSKI NO ) • I  BA ( JBIND) ) . EQ . M ASK ( MSK I NO  )  )  148=1 

RETURN 
C  £v  D 


C-6 


!  uoo  !  uuu  uOu 


SUBROUTINE  SRRMESI  agLBUF » 0T3UF .PELMAX .  VRE  S .ERRCNT ) 

IMPLICIT' INTEGER*  A- Z>  *  - 

REAL  ESP 

C******A-  LABELEO  CO NMON . V G3Z OlXJ-Jt **.4* «l _ _ _ _ 

C 

COMMON  /G32  31 T/MASK  * 32 ) • COM ASK (32),LIBIT(32),LZ8IT(32) 

-  "INTEGER  MASK. COMASK. tiaiT.LZBIT - 

C 

CM i«*  ******** ******* !**•# *  FILE  DEFINITIONS  ******************** 

CCMRON/FILSS/TERM.LPFI L. PELF XL. OTFIL. ERFIL 

OIMEMS ION  PEL3UF(60). 'of8UFC60> 

CO MMON/LOGI C/SEARCH , DI AG 

LOGICAL  SEARCH, DI AG  -  ~  - 

•  **  * i  *  *  *  *  *  *  *  **  *  *  *  *  *  *  *  *  *  *  **_•  *  BEG  IN  P  ROGRAM  ♦  »  ************************** 

RE  MI  ND  PELFIL 

-  -  REMIND  OTFIL - __ - -  - 

ERAORsO 

OTELM=(PELMAX*32-i ) /32 

-  OTLNCT»0  -  —  - - -  -  - 

READ  AN  ERROR  FREE  LINE  _  _ 

100  CONTINUE 

READ (PELF IL , END=600. ESR=  800 )  I NL NNO . INELCT ,PELB UF 
IF ( MOD (I NLNNO-1 ,VRES> .NE.O)  GO  TO  100 

■*  READ  AN"  ERROR— CORRUPTED  LINE - - - - . 

20  0  CONTINUE 

RcADIOTFI L. EN 0=500 . ERR =8 00 >  OTLNNO .OTELCT • OT0UF 
OTLNCT  =0  TLNCT ♦! 


UNCLASSIFIED 


yvv  UoOu  <-*  u  uuy 


UNCbAsairicu 


300  CONTINUE  .  .  .  .  ..  . _  _ _  .  . 

CJUNT  DIFFERENCES  BETWEEN  TRANSMITTED  AND  RECEIVED  LINES 


DO  430  I«1.DTEL* 

IP (0TUUP( I) .EQ.PELBUF( I >)  GO  TO  450 

-  IP  (.NOT.  01  AG)  GO  TO  420 - - - J 

writecterm.aio)  inlnno ♦ otlnno • i • pelbuf ( i ) »ot6uf ( 1 ) 

410  FORMAT  (310, 2Z1 2)  .  ..  _  . 

420  CONTINUE 

DO  440  J«1.32 

IF<  I4«(3TBUF(  I  >  *  J.l  )  *N£*  I4B(  PELBUF  (  I  I,  J,  1  >>  ERRCF=ERR0R«-1 
44  3  CONTINUE 
450  CONTINUE 

TF(0TLf**0-INLNND>  200.100,500 -  - - ~ 

ERROR  LINE  NUMBER  GREATER  THAN  GOOD  LINE  NUMBER; 

COUNT  DIFFERENCES  BETWEEN  GOOD  AND  ALL  WHITE  LINE 

500  CONTINUE  -  -  .  .  ..  . 

OO  550  1*1, OT  EL  W 

IF ( PELBUF ( I ) • EQ • 0 )  GO  TO  550 

IF<  .NOT.DIAG)  GO  TD  520 - - - - 

WRITE ( TER M, 41 0)  I NL NNJ , OTLNNO , I .PELBUF ( I >.OTBUF(  I  ) 

520  CONTINUE  _ 

DO  540  J= 1 • 32 

I F  (  I  4r3  (  3 E L3  JF  (  I  )  ,  J  ,  1  )  .  NE  •  0  )  ERFCR=ERRCF«-1 
543  CONTINUE 
550  CONTINUE 

530  RE  AD  <  PELF IL , 6ND=S  3  0  • ERR* 800 )  I NL NNO . I MELCT , PELBUF 
IF ( MOO ( I NLNNO— 1 ■ VRE SI • NE • 0)  GO  TC  580 

GO  TD  300 

CALCULATE  ERROR  SENSITIVITY  FACTOR 
600  CCNTINUE 

ESF*0.  -  -  - . . . . . 

IF (ERRCNT  *L  E*  0}  GO  TO  650 
SSF*FLOAT (ERROR J/FLCAT (ERRCNT ) 

650  CONTINUE 

WRIT2(LPFIL,700I  ERROR. ERRCNT, ESF.OTLNCT 
700  FORMAT  CONUMBER  OF  INCORRECT  PELS  *',110/ 

*  ' 3 NUMBER  OF  BITS  IN  ERROR  TRANSMITTED  **,110/ 

*-  -  •OERROR  SENSITIVITY  FACTOR  **,F12.4/ 

*  *3 TOTAL  NUMBER  OF  OUTPUT  LINES  PROCESSED  =  ».I8) 

C  . 

return 

800  CONTINUE 
STOP  800 
END 


C  -8 


UNCLASSIFIED 


•«OPTRV,  IV  <t  L«V«L  Cl 


•MAIN 


OATS 


791  1*> 


I4/0L 


y. '  i 

i. 

rvj 


*  '  U 
30  dm 

»  >  >  A 

>0  >H 
0<Ji)9 
<)C1  0 
1 1 

0*112 
0C  1  T 

if  1  « 


c 

c 


P  M3  0  *1 A 


I  MPL  IC  IT  INTBaSR  I  »-£> 

-  PEL  i»AX  .  PKLF  tL.0TPIL.TC«M/l72«,i,  2.9/ 
i w.k*  k**MA44tt*4AMV*^A.AA*..,')ealN  MROGKAM  «MM«*»tM*MM***»«**»*»« 


150 

All 


Of.  1  f> 
)C1  7 
)-l  9 
v.  1  v 
102 : 
TT  2  1 

V*"  22 

.  .123. 

Oi-24 

J02S 

K2« 

0  -2  7 

'.);•  2e 

303  C 

.;  :z_\ 

•4  *•>  »N 

T(*  3  3 
or.  3  a 
)  >Jf 
3*  3<! 
002  7 
C  V  U 

.  ^  4  * 
3-  4  1 
)C42 

?  4  2 

0^4  4 
.  3 CAS. 
•'  »0 
>.'»  7 
JL44 
JC49 
j  i 
0,-51 
H*«  2 


1  NLMCT*f* 

CONT  INUC  "  '  -  '  ■■ 

OC  1 00  I  ■!  .50 

JL2Li.LEI.U«2 _ x _ _ _ _  .. 

R  EAC  (  3£L  F  IL .  EIO*  b  '*  .GNR*O0fl)  INLNND*  1NCLCT  .PBLBUF 

I NLNCT  « 1 hLNCT ♦ 1 

1C*I 4U(P6LOUF. 1.1)  - -- 

PCLAfi-lC 

J*1 

■  R  UN*  0  - - - - -  " 

00  2)0  1*1  .  PELM7X 

_P2L  *1.40.1  PELQLEj  LUJ- 


1  90 


200 


IF(PEL.2C. POLAR)  OC  TO  1  4J 
OTBUPI  J)  «c,»N 

J*J«-  j  .  „  - 

RUN*  1 

POUR*  ir.CI  FCL4PM  .2  ) 

30  TC  730  - - 

CL NT  INUE 

JR.LN-F  UNtJ _ 


1C.  J 


CL  NT  IN  JZ 
O  TDUF ( J ) »  PUN 
10*1  — 

IF*  2  5. 

WRITE!  3TFIL.3MI 

“300' FORMAT!  2*014  3 - - - 

jLi.iL.iP.ro^<LT.t  aa»:i  ...C  a..T,0..11.5 - - 

JtDlaJMC-1 

WOITEI  3TFIL.3")  <OT«ur<K).K*lD.JlCl) 

-  CO  TO  -40 0 - -  - . 

CENT INUr 


3  15 


WRIT2C  3TFIL.2  )>> 

IC*TFM - - 

IF-1F4253 

-J.-Jr.il  53_ 


<07bUF(K) .5*10. IF) 


IF(  J.£  ).M  3C  TC  4C  J 
CO  TO  31 t 

4.)C  CONT  INUC — . 1 - 

WRITE ITSSM, 410 )  IC.Jl 

41  F  JUMATOX  .1  4  i5X.  I  M 

wniTctTCRM.  rr-.r-(DT5orncj  >k.i,jd 

42  0  F  OR  MAT  (2X.2HI4.2X)  ) 

J3_J.O£l _ 


■~c~ 


CCNT  INUF. 

WR1 TE( TFFM.51 ')  I NLNCT . 1 NLNNO 
510  FORMAT  (  •  0L  IM60-WS  l  iriN  -*•  «!<>••« 
STO“ 

t>:c  CCNT  INUS 

“ — -ST33  e:* -  - - 

£  N  D 


L ALT  LINE  KUMESP  ***Il.) 


ttKitttfrtn 


ftftnonnnfto 


UNCLASSIFIED 


START  OF  JCEC  UPRINT  PRDGRA 4  DSNAME*D003l . CONVERT. FORT 

PROGRAM 

THIS  PROGRAM  CONVERTS  BINARY  FORMAT  USED  BY  COMPRESSION 
ALGORITHMS  TO  THE  FOLLOWING  BINARY  FORMAT: 

1723  BITS  (216  BYTES)  PER  RECORD; 

EACH  LINE  OF  1728  PE-S  BECOMES  ONE  RECORD 

IMPLICIT  INTEGER(A-Z) 

INTEGER  PEL9UF(60) »0TSUF(54) 

EQUIVALENCE  <  PELBUF! 1 ) tCTBUF ( 1 ) ) 

-  INLNCT*0  . . » - - -  - - 

100  READ! 1 .EMD*500.ERR*600)  I NLNNO . I NELCT . PELBUF 

INLNCT=INLNCT*1  _  _  .. 

WRITE! 2.cRR*7Q0)  OTBUF 
GO  TO  100 

500  CONTINUE 

WRIT£<5.S10>  INLNCT, INLNNC 

510  FORMAT!*  LINES  WRITTEN  =  *,  16 LAST  LINE  NUMBER  *«. 16 > 

STOP 

600  CONTINUE  _  _  ...  _  ___  _  .  .... 

STOP  600 
700  STOP  700 

end  -  . . ---  • 

0  END  OF  OCEC  UPRINT  PROGRAM  LINES  PRI NTED=  26 


C"10  UNCLASSIFIED 

f 
[ 


/wfcrre  / 
/Wpjt  / 

/  tujEl  / 

SwncH 
Uisiote/  fWD 
4J06WT  uor 
P<gi»mafgs 


(Teciscffz 


( is/ «>' MATCH  ) 


I  Ar>t>  TUO 
[  jlonS  0\~ 

!  0P«6sne  ep^/e. 
|~na  Wftjr  L/(jf 


iA\Bl*o| 

— _ n 


CAt-cucATtr 

P'JfJLExIffTV} 


^  At' DP  ^ 


2>'7 


PrtO 


UNCLASSIFIED 


uFo?rr 


oooooc 

Qnoonc 


HEAL  CF3,  CF4.ERRAT5 
C  *****  *•  LABELED  COMMON  /G320IT/  *l 


OOOOOl 

oooooc 

oooooc 


COWFCN  /si  3  2  SI  T/MASK  (  32  )  .CCMASK!  32  )  .L  I  B I T  (  32)  .  LZ JIT  (  32  i 
INTEGER  MA3K.C0MASK.LI8IT.LZB1T _ 


COMMON /BUFF  /PEL  OOF  (  60.2)  .CDBUFI240)  .0TEUF16J  .2  1  . 


COFNCN/NUFF/COOSO  ,92  .2  )  ,CCDER0<3,1  I  ) 
COMMON /SR  AY /ERRORS  (  2500) 

►♦»»♦♦♦♦+■»+»♦**+»♦*-  F-IfcC  DEFINITIONS  +■ 


OOOOOC 

OOOOOC 

"OOOOOC 

oooooc 

QQQQQ1 


Ooooo : 

00000  I 
OOOOO 1 


CC  VMCN/F I les/t  erm , lp  f il .pelf il .otftl.erfil 


C* ********************  LABELLED  common  variables 


OOOOO) 

OOOOO) 

Dourro) 

OOOOO) 
nnoflfl i 


COMMCN /I  VAR/PELMAX . VRE S , EPHA SE . C MPM AX , E RR MOD. L I NMAX ,K 
COMMON /PV  AR/IN.NMD, 3TLNN0.0TELM. INELP .CDELP. dtiLP  .CDELW. 

-* - COELCT".  iHSLCHh.  TCDAT  ArTCOEL  r  ERRPNT  .  ■- n Ho F-F rfcTRL  IM  i 


OOOOO 

00000s 

•OOOOO. 


ERRCNT  ,  INLNC  T,  CON  SEC  .ONEC  NT  .LN.NOBF  .*CNT  , 
INCOD, INREF.CTCOD.OTREF.STFBIT 


CO  MM  ON /I  C  ) 

C0FMCN/L0  3I  C/SEARCH,  01  AG.  SYNC  .WRITE,  ZERO  »LEF  T  »  C  HCLs.  ,  3  ME  ,  WHI  T: 
1  nGICAl _ SEARCH-.  DIAS  .SYNC.  WRITE  .l.Ef  T^CHCCL.uN^.AHIIE. - 


C 

C 


READ  INPUT  PARAMETERS 


ooooo; 

OOOOO. 

ooooo ; 
000^0 

. QOC  .i.O 

OOOf  c 

ooooo 


90  -  WR  ITC(  "6>  I'OO  ) - - - - 

100  FORMAT  (' ^PARAMETERS  J  INPUT(  =  I),  OR  D  EF  AUL  T  I  *  D  )  ?  •  ) 

REAO( 5  ,  l 10,SRR=90)  INS* 

- 009901 

ooooo. 

ooooo. 

1 10  FCTSMAT  ( A l  ) 

IF  (  I  NSW.  ED.  DD)  GO  TO  315 
if  i  iNSa.tJF.ti)  «n  Tf.  an 

OOUOTT. 

ooooo. 

ooooo 

c 

ooooo. 

c 

READ  DIAGNOSTIC  SOI  TCH 

OOOOO. 

*€“ 

114  WRI TEI6.1 IS) 

115  FORM  AT  (  •  iDlAGNOSTIC  PRINTOUT?  (Y  OR  N)t  •) 

ooooo. 

ooooo. 

- (571 1  0)  ~TSI3* - 

IFCINSW.EQ. YY)  GO  TO  116 
tfiimm.-ii.mni  r.n  rn  i 

ooooo 

ooooo* 

QQQOQ- 

GO  TO  11  a 

116  CONTINUE 

ooooo 

ooooo* 

c 

- 01  W*rWE» - - - - 

ooooo* 

c 

RE  AC  MAXIMJ.M  NUMBER  OF  PELS  PER  LINE 

ooooo- 

ir 

120  CONTINUE 
_ Tfl  > 

ooooo 

ooooo* 

QQQOa 

130  FORMAT! *SEN TER  MAXIMUM  NUMBER  OF  PELS  PER  LINE:  •) 

REAC15 .140.  £R.R*120  )  PELMAX 

ooooo 

ooooo 

1*0 — F O  FN  ATM*) - - - -  “  “ 

IF(PELMAX .GE.l .AND. PELMAX. LE. 1728)  GO  TO  loO 

MR I TE (6.1 50 )  PELMAX 

oooco 

ooooo 

r 

150  FORMAT  (ijN'JMBE-?  OUT  OF  RANGE  I  =•  .1  6  .  v  )  •  > 

GO  TC  120 

00150  0 

ooooo 

00900 

c 

c 

READ  VERTICAL  SAMPLING 

OOOOO 

ooooo 

ltJfr  CONTINUE -  ' 

WRITEC6,  1  70  ) 

170  FORMAT! •» EN TER  VERTICAL  SAMPLING:  •) 

ooooo 

ooooo 

K=  AZT(*r»  ISO.  ERR®  160  )  VRES 

180  FORMAT !I2 ) 

(Flues*--.?.  i.»Mi.i/3F<i.iF.in)  r.n  rn  icn 

00030 
ooooo 
_ Qaaaa 

W R I T  E !  6,  i  50  ) ,  VRES 

GO  TO  160 

ooooo 

ooooo 

c 

c 

READ  PARAMETER  K 

ooooo 

ooooo 

150'  COM  I NOE - 

v»R  I  TE!  «.l  92  ) 

107  FflOUAT  if  sF'JTSO  PARA.MFT.fr  K  I  »  J 

ooooo 

ooooo 

00019 

RE  A015  ,140  ,F.RR*1  90  )  K 

IFlK.GS.  1  .AND.  K.LE.  3000)  GO  TO  200 

ooooo 

ooooo 

c 

■"  wfri  Trtoit^O  t  'K  “ 

GO  70  1 00 

ooooo 

ooooo 

c 

c 

‘  ReaD  eRRCR  JATf"RN  »hA5£  ' 

00003 

ooooo 

UNCLASSIFIED 


J  NCL  AS S  I  F IED 


WRI TEC 6,2 10) 


REAC (5 .22 0 . ERR=200 )  EPHASE 
220  FORMAT  (1  1  ) 


WRITE! 6,1  50)  EPHASE 
CO  TO  200 


READ  MINIMUM  COMPRESSED  LINE  LENGTH 


240  CCKTINLE 

MR  I TE  (  6,  2  SO  ) 


READ  (5,140,  ERR *240)  CMPMAX 

IFICMPMAX  .02.0.  AND.  CMPMAX  .LE  .  1728)  GO  TO  320 


GO  TO  240 


READ  NUMBER  OF  SCAN  LINES  TO  BE  PROCESSED 
320  CONTINUE 


330  FORMAT (**NU MB ER  OF  SCAN  LINES  TO  BE  PROCESSED*?  •) 
READX5  ,140,ERR*320)  LINMAX 


WRI TE (6 . I  50 )  LINMAX 


READ  SRRCR  MODE 


280  CONTINUE 

MR  I TE( 6.2 90) 


READ  (5  «110«SRR*230)  ERfiMCO 


vHisiiifcnnl 


IF  (ERR.MOJ  .EO.TT  )  GO  TO  315 
IF 1ERRMOD.NE.NN)  GO  TO  280 


READ  ERROR  LOCATIONS 


300  CCNTINLE 

FO  Ol  TU  I 


305  REAC<5,140)  ERRORS (ERRLIM) 

IF ( ERRORS ( ERR LI M)  •  EQ«  9 999 )  GO  TO  310 


00000. 


00000 

OOOOOt 


00000* 

00000! 


uvuuu 

00000 


00000 > 
00000' 


00000 

00000 


00000 


OOOOK 
0000  1 . 


0000  1' 
00001 


00001' 


00001 

00001 


00001 

00001 


00001 


00001 
0000  l 


00001 

00001 


UUUU  1 
0000  1 


00001 

00001 


310 

GO  TO  305 

CONT  IN  UE 

0000  1 
0000  1 

c 

ERRLIMScFTKlIM-1 

GO  TO  250 

OXfOOT 

00001 

QOOOl 

C 

c 

READ  ERROR  TAPE  FILE  AND  OPEN 

00001 
0000  1 

c 

ERRL  IM»l 

0000  1 
0000  1 

31  A 

RE  AD  (3  ,31  9  ,eN  j=3  i  7 1  'ERFCKS'IE'RELTM  J 

ERRLIM3ERRL  IM  *  1 

CFAP  13.31  fl.FNna.H7  1  PRBnSSI  FBB1  IM1 

OoOoi 

00001 

0QQCL1 

31  8 

FORMATII  1  6) 

ERRORS  (ERRL  IM  )=ERRORS(  ERRLIM  l+ERROR  S  (  ERRL  I  M-  1 ) 

0000  1 
00001 

317 

GO  TO  216 

ERRL  IM*£R  RL  IM-1 

0000  1 
00001 

r 

XL 

350 

CONT  INUE 

O00O  I 
0000  1 
QQQQJ. 

c 

360  CONTINUE 

WRITE  INPJT  PARAMETERS 

0000  1 
OOOOI 

WR  ITE( 6, 4  00  )  PELMAX  »VRES , K.EPHA  SE, CMPMAX, LINMAX  0000 1 

400  FORMAT  (»  1  INWT  PARAMETERS:*/  00001 

- * - to-MAXI  ^UM'NUMBZR'  CF  PELS  PER "XTNE"= '  ,  l  57 - 00001 

*  • OVERT  I  CAL  SAMPLING:  N**.I4/  00001 

- A - 1 QgA.aAME.TER.  X.s'.lA/ _ 0X1001 

*  *0  ERROR  PATTERN  PHASE  =*.14/  00001 

*  *J  MINIMUM  COMPRESSED  LINE  LENGTH  **,I4,*  ciiTS*/  00001 

- *■ - »0>H)N0£R  Or---SCAN--LfrNCS'  TO  0£  PRC€ESal=»  «-*  ,16) - OOOO-t 

IF  (SRRMOJ  .EQ.NN  )  WR  IT  E  (6 , 4  10  )  00001 

410  FORMAT  (  •  ONO  ERRORS  INSERTED*)  0000  l 

- IFlEHRM33\Txr.'R'«rr' in?TTZrB-,  T40  )  (  ET5P0R  J(I  )  il"=l  .ERRLTm) - OOXTOI 

IF  (ERRMOQ.HG.TT  >  WR  IT  2  (6  , 420  )  ERRLIM  00001 


E-2 


UNCLASSIFIED 


UNCLASSIFIED 


420 

C*  *** 

_ c _ 

FTTRWATTri  2V  ERRORS  OHT  ArKEP~  F~WCW  ' ERROR  TAP'b'  1 - 

"xromn 

00001 

AHAfll 

C  INITIALIZE 

C 

00001 

OOOOl 

TCDATA=0 

ERRPNT=l 

00001 

OOOOl 

ERrcnt=o 

INLN  CT  =0 

-FfififFF  aFPHAAPAI  OP  A 

'GOOD  1 
OOOOl 

AAAA  1 

CD  EL  CT=  32 

CTcLP=  l 

OOOOl 

OOOOl 

CCNS  EC=1 

I NREF=1 

OOOOl 

OOOOl 

IN  CO  0=  2 

OTR£F=l 
n  TC  nn= 3 

OOOOl 
OOOOl 
onoo  i 

—  ■{I....... . 

WHITE=  .FALSE. 

KCM  =  1 

OOOOl 

OOOOl 

CO  800  1=1,240 

STF5LF  <  I  )  =0 

■0000 1 
0000  1 
0000  1 

80  0 

CUl^JH  1  1*0 

CONTINUE 

□  ci_g£a  1=1.60  _ _ 

OOOOl 
OOOOl 
OOOO  1 

CT  euF<  I,  JTREF)  =  0 

OTRLF  (  I  , 3  TCOO)  =0 

OOOOl 
0000  1 

850 

PELOUF  (1,1 NC03) =0 

C  0  N  T  I N  UE 

OOOOl 

OOOOl 

=  R'J  j  . 

SYNC  =  .  F4i_  Si. 

-nmt£=  .false. _ 

“TJOTTOT 
OOOOl 
nnnn  i 

C 

C  SEARCH  MODE  5  LOCK  FOR  EOL 1  BIT-flY- 

□  IT 

0000  1 
00002 

9  00 

CCNTIN'JS 

CALL  GET_E<  13. MODE. LSI TS.L) 

•000021 

00002 

00002 

_ 3  IQ _ 

5C  T  C  r5l  Q .  93 07  53 O'. '920  1 ,  MCOE 

STOP  9  CO 

-CaUT.INUE _ 

00002 

00002 

nnAAs 

C 

C  EOL  NCT  FOJNO  ;  ADVANCE  POINTER  AND 

TRY  AGAIN 

00002 

00002 

CDELP=CDELP+1 

GO  TO  900 

00002 

00002 

9  20 

_ a  .10 _ 

CCNT  INVI- 
STOP  920 
-CC-NT  -IMUF _ 

00002 

00002 

AAAA3 

C 

C  EOL  FOUND 

00002 

00002 

SE  ARCH  =• -  AL  SE. 

CD  5LP=  CDiLP  H. 

00002 

00002 

IF  («RI TE)  SC  TC  935 

WRITE=.TRUE. 
nn  rn  oaq 

00002 

00002 

onnn? 

935 

C 

CC  NT  IN  LE 

00002 

00002 

DC  950  1=  l,  60 

CT  SUF (  I , 3  T COD ) =0 

00002 
0000  2 

'CCNT IN  LE 

WR  IT£(  2)  OT  LNlNO,  PEL  MA  X  ,  <OTBUF(  I  , 
rn  NiKPsl  JN'-IAF 

OTCOD)  .1=1 , 

601 

00002 

00002. 

AAAA5 

9  60 

continue 

IF  ( 'ACC  2-2  >9  65,  10  00,  900 

00002 

00002. 

l  COO 

c 

CONT  IN  UE 

00002. 

00002 

C  PERFORM  ONE -DIMENSIONAL  DfcCUDL  OF 

C  FIRST, SET  JUTPUT  SUFFER  TO  WHITE 

_ C _ (r.NI  V  81  AC  K  RUNS  all  L  1 _ 8."  I  KAFBT  ?n  1 

A"  COMPLETE’ 

LX  NE 

0000  2 
00002 
OOAA7 

c 

DO  1  01  0  I  =1  .60 

00002. 

00002 

1  01  0 
c 

1 1  *  j  tcjj mo —  — " 

CONT INU5 

00002 

00002 

'  In1Ex=  3  1 

CQLCF= l 

00002 

00002 

UNCLASSIFIED 


k 


Inrxknnh  I  Ann)  In  rh/^rtl  n  I  |  nhr*n|  I  I  ,,n|r»r>|r>  nj  r>  rfnnAno 


UNCLASSIFIED 


- pygCpri - 

c 

i  nan  rnutTiMug,  .  — - - 

CALL  ONEE  NS (INDEX* COLOR*  STATUStL) 

SO  TO  (10  30*1  070,  1 0  70  •  I  OSS*  1040  ), STATUS 

■e - 1 - e - s - »■  s - 

STOP  1000 

r — pun  appro;  ~ch;ck  lenctk  onruT porting - 

c 

intrt  fPNTIMlT _ 

ON 5* .TRUE • 

IF (OTELP-1 —PELMAX )  1031.1032*1050 

. 1033  -eON-TlhMjg - - - 

IF ( ChC CL) COLOR* HOD <  COLOR *2tZ )  ♦  1 
_ INDEX*  3 _ 


3000  CONTINUE 

C _ _ _ 

PERFCRM  TWO '-DIMENSIONAL  DECODE 


FIRST. SET  OUTPUT  BUFFER  TO  WHITE 
<  ONLY  BLACK  RUNS  WILL  BE  INSERTED) 


DO  301  C  I  =1  .60 

OTPilFf  T.1  Tff13  1=0 _ 

1010  CONTINUE 

- tnee*»-3  — . — . . 

COLCRal 

OTELP= 1 _ 

1020  CONTINUE 

fAl  I  TMfl-N.l  TNDFX.rm  QB. STATUS. 11 _ 

GO  TO  (30  33  .1070. 1070. 1035.  1040)  .STATUS 
1  2  3  4  5 

- STEP  3000 - 

RUN.  ADDED:  LOOK  FOR  NEXT  RUN _ 


1030  CONTINUE 

_ tlN fa  .FALSE. - 

I F (OTELP— 1 —PELMAX )  3031.  1032, 1050 
3031  CONTINUE 

- IF  (-CfCOL )<0LQR»*00(-€0L-OR  »  g»  g  )  »  1 - 

INDE  X=3 

_ CO  TO  302  0 _ 


I  INF  lFMaH.aq\lt«!  rMFr.K  FOR  FI1L  A  NO  UMK-F nii_£ LsL 

1032  CONTINUE 

- ZGPC--1 - 

1033  CONTINUE 
2EKO=ZER3  *1 

- CA IX- GTETLITn  »'*T03E.L'B'IT'5  »£.') - 

_ GOTO  (1334. 1050.  10E0.  10S0  ). MODE _ 

CHECK  FOR  FILL 


1034  CONTINUE 

- CD61.P=OcLPFL - 

IF  (LB ITS .£3  *0  )  GO  TO  1033 
_ IFjZER  C. LE.10I-  GO  T-0-  -l-Q.7.0- 

ECL  FCUNC5  CHECK  TYPE 


CALL  GET_E{  1 .  MODE  »LS  I T  S  ,L  > 
IF (LDI TS. ED.l)  MODE* 2 

muBi  ts.  SQ.oy - — 


M3DE=3 - 

(1070,1060. 1060, 1080), MODE 


GO  TO 


PREMATURE  £0L  DETECTED 


ECL1  DETECTED 

1 035  CCHTIVjUE - “ 

CDELF=CD£  La*L 


HOP’D  Z* 
000024 
.000021 
000024 
000021 
OOOOg! 
000021 
00002! 
000 021 
000021 
■  Q00Q2! 
000021 
00002! 
ooooei 
000021 
000021 
no  oo  2* 
000021 
00002/ 
000021 
000021 
-ooooei 
000021 
000021 
H0002: 
00002 
oona?; 
00002' 
0000  2'. 
ooooai 
00002 
000027 
DO  002  7 
000027 
ooaapf 
000021 
000021 
ooooei 
00002 
000021 
"00002. 
00002t 
-00002- 
00002. 
00002! 
ooooe* 
00002! 


00002; 
&Q002 
00002* 
0000 2i 
000  02 
00002; 
ooooe* 

000031 

000031 

Ooooj. 


000337 

00003. 


00003: 

000031 

00003' 


00003: 

00003. 

00003 

00003. 

00003 


00003 

00003; 

00003 


00003 

00003 


00003 
00003 
ROD  03 


00003 

00003 

00003 


00003 

00003 


066o3 

00003. 


E-U 


JNCLASS  IFIED 


UNLLASSI  FIED 


C 

c 


5TVTLS*4  - - 

IF  {OTEL3  >L:  >11  CONSEC* CON  SEC  *■  l 
-LE-tCCMSEC  -211080  ,  1  OOP  -2000 - 


E0L2  DETECT  E3 


00003; 

00003; 

00003- 

00003. 

00003. 

00003 


1040  CONT  IN u£ 

CDELP*CDfcL  »*L 
- STATUS *3 


C 

c 


PRCBLEMS  .PrlOflLe  MS 


00003: 

00003. 

00003: 

00003. 

oaooj. 

00003. 

00003- 

00003- 


1050  STOP  1050 


CORRECT?  ~ edl 


WRITET  CUTPjr  VTNr 


00003- 

00003- 

00003- 

00003- 

00003- 


COELPaCDiLP  H. 

«R  ITE(2 ) JTLNNO .PEL MAX . ( OTRUF! I . OTCOO ) .  I*  1 «  oO  ) 


OTLNNOt  MNB-IF 

consecm 

IFiCNE)  SY  IC>.TRUE. 
TEMP*t?  TRi  F 
CTfiEF*OTC  J3 
-qi.C3Qjt3E.-l  P _ 


00003- 

00003- 

OMfri- 


IFIMOOE.cJ.2)  GO  TO 
00  TC  300  0 


1000 


000031 
00003' 
TJO00  3: 
00003' 
-00003! 
000031 
000031 
0000-3* 


c 

c 


LINE  T  CO  LONG  OR  N3  MATCH 


•RITE*  .FALSE. 


C  LINE  SHORT 
C 


i  ooo  mw  inu- - 

IF  {  .NOT.SV  !C)  GO  TO  1090 


000031 
00003! 
000031 
00003< 
oaooji 
000031 
00  0  0  31 
003031 


C 

7T 


.  AR-XT  EL2J _ JLTLNNQ  .  PEL  MAX  .  1 GTRUF  JU  .ClHEE  )  .l  =  1.0  01. 

SYNC*. FALSE. 

GO  TC  1110 

tOOfr-  CONT  IMU-i - 


000031 

000031 

ojjws: Ji 

0000  31 
Q  00113 ; 
00003 
000031 
00003. 


c 

c 

c 


WR  IT  E  A  KHl  TE  L  INE 


00 


11001*1,  60 
I  »*o 


•  RI TE<  2)  JTLNNO, PEL PAX  ,  {  CTaUF!  I, CT CCD), 1*1. 60 i 
1110  CTLNNO=LNNJ-3F 

IF  ♦STA-T-iJ  »-3>3»4  )  80  TO-fOOO - 


00003. 

00003. 

00003’ 

00003. 

00003: 

00003. 

00003! 

-ooeost 


T 

c 

-C- 


SEARCM*. TRUE. 
CO  TO  900 


0000 3; 

000031 

00003 

00003i 

00003- 

00003c 

00003t 

■000031 


END  CF  MESSAGE 


2000  CONTINUE 

•  RITE!  6,2  010)  CONSEC 

CO!  O'  POWAWiTJ  -3F  MESSAOe  C-cT  fcCTED— <  *  .B-gi  »  ■  fertr*-*  6  )-*"»- 


C 

c 


0000  3! 

REPORT  COMPRESSION  FACTOR,  ERROR  SENSITIVITY  FACTOR. PIT  ERROR  KATE  00003- 

- 00003- 

00003; 

Qoaoas 

0000  3! 
00003! 
00003- 


ERR  A  TE*F_  )A  TC  ERRCNT  )  /FLOAT!  TCDEL  ) 

_ MR  IT  EC6.2Q2QX  ICJEL  ,  TCQATA.ST-EBII.INLNCT  tEARAlS 

2020  FORMAT!’ 3 TO TAL  NUMBER  CF  CCDEO  BITS  =  ’,18/ 


•3  TOTAL  NO M3  Efi  OF  CODED  DATA  BITS  *  ’,13/ 

-*-3~T  3T  AL  NUMBER  Cr  e-PlM  L  Hi  CO  -  «*■  1-3/ - 

•3  TOTAL  NUMBER  OF  INPUT  LINES  PROCESSED  * 
•OB IT  ERROR  RATE  «  «.G14.fe) _ 


18/ 


CALL  STATS!STAT, IM.NCT.DIAG) 

_CF  QsFLCAI.  (PEL  MAX  I  MEL  QAT.C.XNLJ1CJ  1/.H..QAT  (TCQIL1.  ... 
CF  4=  FLOAT  (  S£LMA  X)  *FLOA  T!  INLHCT)  /FLOAT  I  TCDAT  A) 


MR -I  CF-3  rC-P-4- 


2030  FORMAT  (•  J  C3  MPRESSION  FACTOR  Ft.fi  G3  MACHINE  !CS3) 
•  _ « JCJMPRtSSION  FACTOR  FOR  G4  MACHINE  1 LF 4 ) 


,F  8.  4/ 
.  H8.4) 


CALL  ESRMiS  {PEL  *)  F, OTBUF . PEL  MAX , VRES . FRRCNT ) 


00003s 
00003- 
~~0000  4c 
00004c. 
.  aaao«c 
0000  Ac. 
0000  AC 
109941 
00004c. 
00004c 

- 00004  c 

00004c 


E-5 


JNCLASSIF1E0 


UNClASSI  PICO 


SUBROUTINE  G2  TLEI  LB  ITS  ,  MCDE  iWRDil) 
IMPLICIT  INTEGER!  A-Z) 


CCMMCN  /C328IT/MAS<  (32  ).CJMASKI  32).  L  IBITI  32) • „ZB1  T(  32) 


•  STF3UFI  240),  STA  T(  3000) 

CCMMCN /HOFF /CO DEI  3.92.2) , CCDERDI  3. 1 1 ) 


»»«•*•*#«••*•*•*  LABELLEO  common  variables  •♦*♦***•*« 


COMMCN/PV  AR/I  NL NNO.OTLNNC.OT  EL*  . INELP.COELP.  3TELP.C0 


fl  17a  ■  ff%  uhTif  W  Hfiiama'T  •T‘J7i  W  J*IkTi 


ERRCNT . INLNCT.CONSEC .CNECNT .LNNQ3* • KCNT . 
INC 00. I NREF .CTCOO.OTfiEF.STFBIT 


COMMCN/L  JGI  C/ SEARCH,  01  AC.  SVNC.  NR  IT  E  .  ZERO  .LEFT  .  CHCOw  .  3NE*  I»M  TE 
LOGICAL  SEARCH, 31 AC. SVNC . WRI TE .ZERO, LEFT .CHCuL * ONc.MHI T E 


00004 


00004 

00004 


00004 

00004 


00004 


00004. 
0000  4. 


00004. 

00004 


00004. 


00004. 

00004 


00004 

00004. 


RETRIEVE  NEXT  BIT  FROM  CDS UF 


IF (CDELCT-C DELPHI  )  170.100,180 
170  STOP  170 


STFBUF  I  1  )  *1  431  STFBUF  .COELP  .COELCT-COELPM  ) 
190  CONT  INUE 


rwii  ’iilTjnTW 


WR0=14B(  STFBUF. COELP, LB1TS) 
L  =  L  G  IT  S 


IF(L .EQ.l 3.AN0.WRD.E0.C00ERDI 3, 10) )  GO  TO  300 
IF (L.CC.l  J. AND.WRD.EQ.COCEROI J,  I  1 ) >  CO  TO  400 


M3.TJ3  1 
FnXJTRfl 


00004 

00004. 


continue 

00004 

00004< 

00004 

00004 


00004 

00034 


00004 


00004 

00004 


00004 

00004 


00004 


300  CONTINUE 

00004 

MQCE*2 

00004 

400  CONT  INUE 

00004. 

MODE  *3 

00004 

IMPLICIT  INTSGSRIA-Z) 


I**  LABELED  COMMON  /G32BIT/  *•***•• 


INTEGER  MASK.  COMASK, LIBIT  .LZBIT 

COMMON /BJFF/PHlBJFI  60.2) .CDBUFI 240)  .0 TBUF ( 40. 2 )  . 
STFBUF! 240 ) ,  STATI3000) 


CC VMCN/5R AV/ERRQRS I 2500 ) 

C* **********************  FILE  DEFINITICNS 


COMMCN/FI LE S/TERM, LPFIL, PELF IL.OTFIL .ERF IL 


»«***•***«»*•««*«  LABELLED  COMMON  VARIABLES 


COMMON /PV  4R/INLNN3.CTLNN0.0TELW,  INELP «  CDEL •» ,  31  cLP .CDs. *» 

N5LCT.TCDATA  .TCDEL  .ERRPNT  , E  RRCFF, eRRLI  M 


INCOD, I  NR OF , CTCOO • CTREF  »  STFBIT 


K-6 


UNCLASSIFIED 


00004 
0000  4 


00004 

00004 


00004 


00004 

00004 


00004 

00004 

'OCFOT5T 

00004 


00004 

00004 


00004 

00004 


00004 


CaMMON/ICHAR/DD,ir,MM,  TT.NN.TY 

COFMCN/LJGI  C/SEARCH.DI  AG.  SYNC,  WRITE.  ZERO  .LEFT,  CHCOL  . ONE  •  WHI  TS 
i  nr.tr At  iP*srnT,->|  a<i  t  <svnf  .wot  if  t  ?FSr  t|  fft  trwrn i  , 

000045 

000045 

i)Aflni< 

c 

c* 

000045 
*  00004' 

c 

c 

INITIALIZE  VARIABLES 

000041 

000045 

COeLCT^32  1 
<•nR4Ti.ii  . 

00 005 C 
000051 
0000*11 

CO  50  1*2  ,240 

CDBUF  (  I  )  *  0 

0000  Sc 
0000  SC 

c 

SO  CONTINUE 

000051 

000051 

c 

REaO  INPUT  PICTURE  FILE  " 

tan  rriNTiMiier  __ 

- 00005 C 

00005C 

nnnn<;i 

REACH  ,CN0*»20  ,ERR*500  ) 

•  INLNNO.I  N2LC  T,(  P5L0UF  I  I  .INC  CD)  .1*1  .60) 

0000  5 
00005 

I  F  (  I  NE  LCT.LT.  PEL  MAX  )  CALL  EXIT 
inlnct  *  INLNCT  ♦  I 

wwwwITi 

00005 

00005. 

c 

LOAD  OLTPUT  LINE  NUMBER  BUFFER 

00005: 

00005 

nnon<ii 

LNNCBF  oINL'INO 

1F(S£ARCH)3  tlnno*lnnobf 

00005 

00005: 

c 

IF< INLNNO.LE.LINMAX)  GC  TC  140 

00005. 

00005. 

~c~ 

c 

wp  jyr  "Si  jte OL 1  *  5 

00005; 

00305: 

noons: 

00  liO  IM.t 

CALL  CCOi'tiOO.O.O.  O.O.CDELCT.COOATA) 

00005. 

00005. 

•  J  v  V  w  N  i  *  — 

CO  I  35  1=  1. 6 

STFflUF  (It-COaUFt  n 

oooos; 

00005 

155 "CO NT  I NU? 

GO  TO  400 

oooos: 

00005. 

niinni 

c 

140  CONTINUE 

66665. 

0000  5 

c 

•  u  j  1  »  U™  ® L L  Ml  I  Tv  LI  * «- 

I NELW  = ( I  (ELCT.-.J2-1  )/32 

00005. 

00005 

20  145  1=  1,  INSCH 

IF (PEL  EUF ( I  .  I NCOO )  )  146,  145.  146 

|4*!  < N T  l N  La 

00005: 

00005 

0000*1 

c 

c 

LINE  IS  ALL  WHITE 

00005- 

00005 

IF (WHITE)  33  TO  147 

WHI  TE*.TR  US. 

00005- 

00005 

c 

CO  "TO  154 

1  INF  IS  MOT  All  WHI  TF 

00005 

00005 

00005 

c 

146  CCNTINLS 

00005 

00005 

»HITE*.FA  LSE. 

GC  TO  149 

00005 

00005 

c 

TEST  FCfi  CONSECUTIVE  2-DIV  LINES 

00605 

00005 

00005 

147  CONTINUE 

IF(kCNT)  149,149,600 

00005 

00005 

c 

140  CCNTINUS 

00005 

00305 

c 

CNfT-CTMrNSI  5  IAL  C33TN13 - 

WR I TS  CNE  E OL 1 

05055 
00005 
—  00005 
00005 
00005 

c 

CALL  CC3EN3  (1  0 , 0 , 0 , 0 , 0  ,  CCfcLCT  .CDCAT  A  ) 

c 

c 

FCL  t  " “  —  ■  "  -  — —  ■  —  “  ■■  ” 

T  *EST  CrU-JS  3F  FIRST  ELEMENT 

- 00005 

OOOOS 

00035 

c 

IF(  I  4B(PEL.JUF(  1  .INCOD)  .  1  ,  1  l.EQ.O)  3C  TC  )  50 

'051305 

00005 

UNCLASSIFIED 


E-7 


UNCLASSIFIED 


MUST  ELEMENT  BLACK;  CNCOOe  0-LENGTM  WHITE  RUN 


CALL  CODELNIO.I .COELCT .COOAT A) 
POLAR* 2 


CALCLLATE  RUN  LENGTH  AND  ENCOOE 


I  i ;  i  m  Mitp 


RUN*  C 


PeL*UB(Pt£L3UFU  .INCOD).  I.t  )M 
IP  (PEL  .EJ. POLAR)  GO  TO  180 


IF< .NO T.DI AG)  GO  TO  170 

WR  IT  E<  6.  160  )  RUN,  POLAR  .CDELC  T  ,‘CDOA  TA 


I V t  -i *1  ~V  f  f  %»|i 


170  CONTINUE 

Cllk.  i 


POLAR*  NOD  I  POL  AR*2  .2)  *■  1 
GO  TC  200 


RUN* RUN ♦  1 
200  CCAT INUE 


Itiiy  II 


KC  AT  *K 


WR  ITE<  6.  I  tO  )  RUN. POLAR  .CDELC  T  ,CDDA  TA 
GO  TO  210 


TWO-DIMENSIONAL  COOING 


STFBIT-STFDITM 


WRITE  ONE  £0L  2 


SET  AO  TC  LEFT  SOGE-1  ANC  PCL AR I T Y *WHI T  E 


ao  *o 

Rfll.aC _ 

LEFT*. TRUE. 


IF(  I  .GT.PEL  WAX )  GO  TO  640 

r  n  n  t  i  n  i  f _ _ _ 

PEL*  14  EtP  SLSUFIl  .  IN  COO  ).  I.  1  ) 
IF (PEL .N£ .POL)  GO  TO  640 


I  F  (  I  .L  E  .PEL  VAX  )  GO  TO  630 
640  CONTINUE 


TEXT  a  1  - _ 

I*  A  C>  1 


PEL Ml *1431  PEL  BUF ( I  . INREF),A0.1  ) 
IF(LEFT)  PELW  1*0 


PEL*I4B<  PEL3UF1  l  ,1  NREF  )  .1.1) 

- _JLELPEL.Ni^*a_iU)  GO  TO  670 

660  CCATINLc 
PELM 1*  PE. 


IF( I .LS. PEL  WAX)  3D  TO  650 
5  COAT  INUE 


GO  TO  710 


IF(PEL.Ni.POL)  GO  TO  6S0 
GO  TC  660 


00005 


OOOOS 

0000  s: 


00005 

OOOOSt 


0000  5* 


00005' 

000051 


OOOOSt 

OOOOSt 


OOOOSt 

AArtrt  ace 


00005‘ 

oooos< 


oooos 

0000  5 


00005' 


000061 

000061 


00006) 

00006. 


vU  UUO. 
00006) 


00006) 

00006. 


00006 

00006 


0000  6 
-ooaoti 
00006 
00006 


00006 

620  CCATINL2 

0000b 

00006. 

- 00006. 

00006. 

00006 


00006. 

00006 


00006 

_ 00006. 

00006 

00006 


00006 
00006 
—  00006 
OOOOo 
00006 
0000  6 
00006 


00006 

00006- 


00006 


00006 

00006 


Bl*  I 

00006 

FOL*PE  L 

00006 

DETECT  B2 


E-8 


UNC.ASS IF IED 


00006: 


uu  wi|uu|  I  u  |  uvuuyu  !  ]  I  yuu 


UNCLASSIFIED 


C - 

I-9I*t 

000063 

QOODhl 

700 

CONTINLe 

PEL*  lAB(Pc_8UF(  1  .INREF  )  ,1  ,  1) 

000063 

000065 

1"  1 9*  LL  iff*  l  J  vk  w  W  r  Ci)  ^ 

I*  I  ♦  I 

IF!  I  O-  E  •  P  EL  N  AX  )  S3  TO  700 

00006c 

000066 

71  0 

“xarrrrNtE 

B  2*  I 

rn  tp  Tip 

000061 

00006C 

flflnn»< 

720 

CON  TIN  LE 

82*  I 

000061 

000063 

730 

CONTINUE 

IF!  .NOT. LEFT  )  POLAR*!  A81PELBUF!  I.  INCOC  ).  AO.  1  )♦! 

000061 

00006: 

POL AF* 1 
AD.  a.  I 


LEFT*  .FAu  Sc 
740  CONTINUE 


00006 < 
OOOOft ■ 


000067 

00006: 

OOOOo'i 


TEST  FOR  a  ASS  NODE 

IFTaTfrCci A 1  V  GO  TO  T53 


-PASS  MODE  CQQltLL  1CAM'  I  END  A  LINE  IN  PASS  .MLuiiUN-CA. 

SANE  POLARITY  AS  B2) 

- tAtt— t  ft)  s  NO  HT«»Ot4  r>f  COELC  f  »C  OP  AT  A  > - 

AO  ■  02 


ooooo: 
00006 
"  0D0067 
000061 
OOOO61 
000061 
00006< 
000061 
000061 


GO  TO  62  0 

7ST'raNT'WUE - - 

- MABsIAaSt  A1«B  U - 

IF  !  M  A  B  — 3  )  751. 751. 799 

- eAteuL  AT  e  . --NOTH'  OF  VERTICAL-ANO  H6<M  *0HTAt--MU0t.6 


- - Da  hckizcnt  «L  ~FTPm - 

75 1  CO  NT  EXU£ _ _ 

A 1  VAO*  A1  -  AO 
H0RI2=  Q 

- tP!  AtNAO.LE  »63)  OB  TO  753 - 

HOFI  2*  CDOE!  I  •  A1  VAO/64  *64,  POLAR) 
755  CONTINUE 

- Tc  VF5MC3I  M  TM .64  )'M - 

H0RIZ*H0RI2*C0UE( 1 .TEMP,FCLAR)0 


CALCULATE  VERTICAL  LENGTH 

- NABMAgX  At  -51  >♦! - 

GO  TO  ( 76 0, 770,780.780)  .NAB 
STOP  760 _ 

760  VERTIC=I 

- CO  TC  790 - 

770  VE  R  T  IC  =»  3 
GO  TO  793 

TOO  VPRTIC»ft - - 

IF(m-Al  .23  .3)  VER  TIC  *  VF.RT1C  ♦  I 
790  CONTINUE 

- rFlHOHIZ.  5T7VSPTICT  50  TO  835 - 

■C _ CODE  UY  H.3RIZ0NTAI _ ADDF? F TEST  D  -T  ECT  A P 

C 

799  CONTINUE 

- fr- »  - 

IFU  .GT.PELNAX  )  GD  TO  810 
C 

X - C'ALCULAT"  30HBITV  3F" "XI - 

C 

- POl  S  I  AHI  P  -I  1UF1  l.!Nfnn)  .11  .1  I _ 

800  CONTINUE 

PEL*!  A0(PEL3UeU  •  INCOD).  I  .1  > 

- IF-fPOfc-iNti  .*Ot)  -TO— J26  - 


000061 

- 0TJVW51 

00006' 

_ 000061 

000061 

000061 

- 000061 

00006' 

00006' 

~D0OO6't. 

00006' 

- 00006: 

00006- 

00006- 

- 00 OOTl 

0000  71 
00037: 
— UQXnBTi 
000071 

_ 000071 

0000  7\ 
00007: 

- 886OT1 

000071 

00007) 

- 00007 . 

00007 1 
__  00007) 
00007 
00007- 

- 86667- 

00007 

00007 

00007: 

00007; 

_ 00007- 

00037. 
0000  7. 

00007.’ 
00007. 
“00007. 
00007 
__  0000  7. 
00007. 
00007 
- 6066T-. 


I*  I  ♦  1 

IF  (  !  ,L -.P  C_ 

BT5  x?*TEl^5x  m 

GO  TO  330 


AAX)  G3  TO  eOO 


00007 

00007 

"37007 

00007 


E-9 


UNCLASSIFIED 


L  — .. 


UNCLASSIFIED 


00007. 


CALL  COPE  NO  (  2,  PPL  4  3  .  A  0  ,  A  I «  A2  <  CDELC  T  »C00A  TA  > 
AO  »A2 


ERT1CAL  NOPE 


cooe  bv  ves 

035  CONTINUE 


8 AO  CALL  C0DENG(AI>B1 +3.0.  O.O.O.CPELCT  .CCCATA) 

80  TP  080 - 

650  CONTINUE 

CALL  C0P5 NOISi-AIf 6,0,0.0,0,CPELCT.COOATA| 

~w  tort  mo; - - 

AO»A  I 

TEST  FCS  END  OF  LINE 


IF  ( AO.GT.  PELHAX)  GO  TO  210 
POL«I  A8(Pa.SUF(  t.  INCOP). A  0.1  ) 

- gO  TC  620 - 

210  CONTINLE 

SWITCH  CUPE  (  REFERENCE  LINES 


0000  7' 
00007 
00807- 
00007- 
00007 

~crovoT' 

0000  7 
Q0QQ7 
00007. 
00007 
0000  7: 
0000  7 
00007 

moor 

00007 
.00007. 
0000  7 
00007 
•0000-7- 
00007 
00007 
00007 
0000  7 

jiooa_z. 
0000  7 
00007t 


INREF*INCCP 

INCOO  THWP _ 

CO  EL  W»(CPELCT*  32—  I  )  /32 


00007 

00007 

TTOOOT 

00007 


STFOLF  U)  *COOUF(  I) 
300  CONTINUE 


00007 

00007 


ST  AT  <  INLNCT  )»CP0AT4  M3 

CHECK  COOEP  LINE  LENGTH 

FI LL*C WPW AX-ICOELCT-32 I 
IF  <  F  ILL  )  *00.400.250 


COOE  LINE  T  OO  SHORT}  FILL  I T  TO  C WPMAX 
250  CONT  INUE 

- COHECCTWCPEL  CTWFTLC - - - 


STATIST -l  CS- 


400  CONT  INUE 


00007 
00007 
00007 
00007 
-  00007 
00007 
00007 
00007 
00007 
00007 
“00007 
00007 
.  .00007 
00007 
00007 


ERROR  CORRJPT _ 

350  CONTINUE 

_ EBfifllT^EnunBS  (EflRPNT  > -EKBDTF -T  CPft _ _ 

IF  (ERRBI  T.LS.  0)  GO  TO  360 

IF  (ERR  BIT  .GT  .CDELCT-32)  GO  TO  390 

ERROR  IN  RAN  ic  OF  CPPED  LINE;  CHANCE  APPROPRIATE  61  T 

- gTTSTTOT  aTTiTUF'.ERTfBTTf  72,1) - 

8IT*WC0(«4IT  *1.2) 

- CALL  Ml2dt41X«ST£dUF«E£RSIT*X£*.lJ 

ER flCNT»€3«CNTM 


360  CONTINLE 

- EffWPRTi£TRP*rm - - 

IF (ERRPNT .LS.ERRL1M)  GO  TO  350 

ERROR  L  I  ST  EXHAUSTED 

-  ■  eRRPNToERRPNT-I - 

WRITE! 6, 3  70  )  ERRPN T . ERRORS ( ERRPNT ) 

370^FrBAAT<»  0  ERROR  LIST  qr  cukrIo °a  t  ■  *  i  1  *  °  *  '  T  H  £ffLRt</ 
ERRWCO»N.( 


00007 

00007 

- 00007 

00007 

___aao(L7 

00007 

00007 

— 

00007 

00008 

- 00008 

00006 

aoaaa 

00008 

00008 

- 00008 

00008 
00003 
— 00008 
00008 

_ JJQQil  0 

00008 

00003 

00009 
00008 
~  0000s 

00003 


unclassified 


S-10 


UNCLASSIFIED 


~cr 

c 


COMPUTE  STATISTICS 


390  CONTINUE 

TCCEL-TCOB.  ♦C0ELCT-J2 

4934  TA«Te3A  fA  M-COOA  TA 


00008) 

ooooa* 

aoooai 


IF(OIAG)  *RITE(6.160)  INLNCT,  CODATA 


- IF  r»WOTi  Or  AST  SO  TO  *60 - 

COSLW*  (CUS_CT*32-l  )/32 

- ARIT.~ift.ASO)  lXQajJE4J_)  JjU  .f  DELHI 

WRITE!  6.  A  SO)  <  STF3UF(  I  )  .  I  *  1 ,  CDEL  *) 
450  FOR  MAT  (62  12  ) 

469  CONTINUE - 


000081 

000082 

ooooei 

00008* 

000082 


O0OOB2 

000082 

OOOQB. 


000092 
000  08. 
00098: 


RETURN 


*500'CDNTTNur 

CALL  F.XIT 


END 

SLBROUTI ME  CQDENG( MCOE, PCL AR, A. B.C. CCELCT .CODAT A  I 

■IHPLIC-IT — IN  TEGg-RM  A-Z  > - 

CCMWCN/lUrF/PSL9UF(60.2  ).CDBUF(  2  40  )  .  Q  T  BUF  (  60.  2 1  . 
STF3UF(  240)  ,  STAT13000) 


ooooa: 
00008. 
“DoO  08: 
0000  8. 
.oflaoa. 


oooos: 
00008. 
ooooo* 
0000  8. 
oooos. 


COWMCN/EW  AY/ERRORS  (2500  )  *CliUtKDk  3*  1  ‘  * 

- 00008* 

00008. 

nnnn>w 

c* 

c 

0000  8< 
00008. 

COELCT  *CDeLCT  *-C30ERD(  1  ,  MCOE) 

GO  TO  ( 10  0. 200.  100.  100 .1 00,1 00.) 00.1 00  .100.800 .800)  .MODE 

00008. 

00008* 

C 

c 

MODE  1  234  56  789  10  11 

80008! 

00008! 

noann* 

C 

STOP  129 

0000  8! 
00008! 

c 

100  CONTINUE 

00008! 

00009! 

CDlJAT  A=CD  DAT  A  *Cj  DfcR  DO  .MODE) 

RE  TURN 

00008. 

00008. 

c 

c 

HCMZCNT  al  -M-3CE  ( 2  ) 

0000  8. 
00003. 

C  3  DAT  A  =CD  OAT  A ♦COOERD ( 1  .MCOE) 

CALL  CHDELNIS-A.PDLAR .CDELCT.COOATA) 

00003. 

00008. 

XEwT>CL  =  AJ5(P0L  Ar*2T2'1  ♦  1 

CALL  C03iL  M( C-B.NEWPOL  .COELCT .COOAT  A> 

C'  T..ICM 

00003- 

00008. 

00003 

C 

c 

AOU  ECU  DR  E0L2  TO  LINE  (10,11) 

OOOOS 

00008 

'*800  CONTINUE 

RETURN 

000  08 
00008 

SUOKCUTI  4E  CN^ENGC I NDcX  *  COLOR *ST  AT US  *L  ) 

_ Ilia  If  IT  W  TFlIFQI  A- 7  1  ..  .  .  .  ... 

00003 
00008 
-  -  00008' 

C*******  LA05LLC  COMMON  /G32BIT/  ***•••* 

C 

- COMMON  /9  329IT/MA0M  (  3g).CC'MA0K(  36)  .L-H4)  T-<-5«*»  rtnfrtH  T<  S3  ) - 

OOOOS 
OOOOS; 
- 89999- 

INTEGER  MASK.  CCMAS K , L I B I T , L 2  8 1 T 

"CCWCTl/  TJ  FF/P!-L  3L)  FT6"0"."2  V.  CPBUFt  2»0'TVOTBU'n  SO.'STT 


C« 


♦  STF  3  JF  (240).  STAT(3000> 

XaMMCN/rtUFF/CDDEi  3. 9  2. 2  1  .CODERS!  O.A-IO- 
CCVMCN/ER  AY /ERRORS  (2500  ) 

»,,**,*,«,**«••****  fh_E  definitions  *' 


OOOOS 
OOOOS 
“00009 
oooos 

_ 0000  a 

oooos 

oooos 


COMMON  /Fi  LE  S/TSRM.LPFI  L . PELF  I L , CTF I L  .  E PF  IL 


80909 


00008 

C  00003 

C*'**  *  *  *  V*  Mi-*-*-*-*-*-**  *****  L  ABELL  EC~"fOM'ilCN  ~Vam>BLES  '»*♦***»  **V*  m *  f  *nnrtr  -OOOOS 

C  00003 

- CC.YMQi/.i U.  Afi/  P5L..AAX*.VRE5»  «  EPHAS  £.  CMP.'MAX.  ERfiMJO.  .  I  HHAJUH - OOOOS 

COMMON /AVAR /I NLN-MD .OTLNNC .CTELW . INELP. COELP. uf LLP. COL. A,  00  003 

♦  CDELCT,  INELCT, TCDATA . TCDEL  .ERKPNT.iKKOF F ,=  RRLI M,  OOOOS- 

- • - 6<MR€-NTt  I  NL-NCTi  CON9  fce-*C-  Nt~C  NT-»  t  NNUSF-rKrLNT-. - 99999- 

*  INC30. INREF .CTCOO .CTREF .STFBI T  00003 

CCW  MCN/ ILHAR/ 00. I  I . MM, TT .NN. YY  OOOC9 

- ^TCMMTFi'XTGI  CVOtAPCH",  BT~A£  '.SYNC  .  WRITE  .  2EECTL1FT  •  CmCOl  «  lN'E.  WHITE - 00  009. 

LOGICAL  i S ARCH,  01  AG, SYNC. WRITE .2ER0 .LEFT. CHCuw »wNt . W9I  TE  00009- 


E-11 


UNC. ASSIFIED 


UNCLASSIFIED 


■C_  — —  _________ - 

C  BEGIN  DECODE  LOOPS  RETRIEVE  NEXT  CCOE  *CRO  LENGTH  (Li 

_ 

- 0UUTT71 

00009( 

ooonai 

1000  continue 

1002  LENDIT«C3DE<  1. INDEX, COLOR) 

000091 

00009. 

IF(DIAG)  MR  I  TE (  6.1 003)  LEN8I  T .MODE ,LB I TS  .L 

1003  FOPMAT  (»I  6,  ZB.  16  ) 

000091 

00009) 

GO  TO  <1 jO.I200.1205.1T90) .  MCOE 

STOP  10*0 

i  «*.«  r nkTiuiiJ 

- OUOOV 

00009 : 
nnnno 

IF(LBI Ti. ED. COOEt 3t INDEX. COLOR))  GO  TO  110J 

00009 

00009 

C 

INDEX*C0DE<2. INDEX .COLOR > 

00009 
0000  9 

m  INDEX.  G5T93T"  GO  TO  I  I  90 

IF  (CCDEIl  .  INDEX.  COLOR  ).EQ*LENBIT)  GO  TO  10*0 
r 

OOUUV 

00009. 

nnona 

C  COOS  <*0R0  .ONGERS  FROM  THE  TOP 

C 

00009. 

00009. 

C 

C  MATCH  FCLW 

00009. 

00009 

T  '  ~ 

1  100  CCNT INUS 

CD  FI  Pari"  1  P.l 

00009’. 
0000  9. 

C 

C  NOT  AN  E  CL 

00009. 

00009 

c 

C  TEST  FCR  MAKE  UP  OR  TERMINATING  CCOE 

00009. 

00009 

T 

RUALEN*I(CSX-1 

IF  l  INTIFlf-  "  -  Ql  INI  FMj.1  I  NPF  X-  FA  k  •  AA 

OOD09t 
0000  9 

IF (PUNLSN .SQ.O )  GO  TO  1160 

IF  (CCLCR.  S  1.1  )  GD  TO  1155 

00009. 

00009 

C 

C  ADO  BLACK  RUN  TO  OUTPUT  BUFFER 

- wow 

00009 

00009 

T  '  ' 

DO  1  15C  1  =1  .RUNLEN 

mi  r  n  triif  i  l  .nirnn  i  .rrri  p.  i  l 

- 00009. 

00009 

flOflOQ. 

OTELP^CTELPM 

IFICTSLP- l.GT.PSLMAX)  GO  TO  1180 

00009 

00009- 

GO  TC  1160 

C 

WVV“* 

00009 

00009 

C  ST5C  T»H  IT  “  NiJJ  TC~”OUT  PUT  BUFFER  I  BY  PEFAULTT- 

C 

00009 
00009 
QOQ3  *• 

CTSLF=CTELPt RUNLEN 

IF  (  J  TE  L3-  1 «  GT. PEL  MAX)  GO  TO  1180 

00009 

00009 

C  OUTPUT  LINE  LESS  THAN  OR  EQUAL  TO  MAX  SPECIFIED 

C 

00009 

00009: 

1  l£0  'CCKTTNUJ 

IF  (  I  NO  EX.LT.6S)  GO  TO  1170 
ifir.  =  xai 

0000  9 
00009. 
AOOQQ. 

GO  TC  1)0  0 

C 

00009 

00009i 

C 

1  170  CONT  INUS 

0000  9. 
00009 

CHCJLa*T^l)H  • 

STATUS* l 

. . RETURN  _  _  _ 

C 

C  RUN  ADDED  JNTIL  PELMAX  EXCEEDED?  LINE  TCC  LCNG  (2) 

- - - -  - 

00009 
00009: 
__  0QQ09. 
00009 
00009 

1  180  CONTINUE 

IF(DIAG)  MR  ITE(6.  1  185)  (  OTBUF  (  I  .OTCOD  )  .1*1.60) 

00009 

00009 

T IBS  FJRVATC62l0r 

ST ATUS*2 
.  RE  TURN 

~ 00009' 
00009 
_ QQQQ9 

C 

C  NC  MATCH  FJJNO  IN  CODE  TABLE  <  3) 

00009 

00009 

l  190  CONTINUE 

ST  AT  US  *  T 

00009: 

00009. 

“RFTuFN 

C 

- 00009: 

00009: 

E-12 

UNO- A SSI FI ED 

rtoknri  rwijn  nh«  !  I  I  I  I  |  o <~»K  nn  p  <"»£  I  Jor* 


JNCLASS IFIED 


'ETTLl  “DETECT  E3  (TT 


ST  A TLS  *4 
BE  TURN 


ECL2  DETECTED  (5) 

raf5~CTr«rrwus  — - ~ - 

STATUS  *5 

L3C  T  (Dm 


£  N  C 

SUBROUTI  M:  T*OENG(  I  NOE  X  ,C  CLC  R  .  ST  A  TUS  .  L  ) 

- 1»»FL  K-1T  -IN-TEG-ERFA- 1  ♦ - 

LABELED  CCM.MUN  /G32BIT/  *•••*•• 


000091 

000091 

nftQQQt 

00009t 

000091 


00009' 

00009' 

00009' 

00009' 


XCT«rCN  /»G  32  elT/9*r<(32  K  C09A5KC 

INTEGER  MASK. COMASK. Li  BIT  .LZBIT 


.-23IT(  321 


C  JVMCN/BJFF/PEL BOFtftO. 2  I  ,  CDBJF(2*0  >.CTBUF(60.2). 
•  STFB UF (  2  A  0 ) •  STA  T<  3000  ) 


CO  VMCN  /HR  AY /ERRORS!  2  50  0) 

»«•«««•«•••«•*«••••  FILE  DEFINITIONS 


CCMMCN/FIlES/TERA.LPFIL.PELFIL.CTF  il.erf  il 


LABELLED  CCM*CN  VARIABLES 


COMMON  /3  V  AR /IN.NNO  .  0  TL .  INO  .  OTEL  *  .  I  NE  LP  »CDE  LP  >L.TiLP.  CUc.  W  • 

_ * _ CCELCT t  IN5LCT .TCDATA.TCDEL . ERKPNT . ukHUFF . iRRL I M . 

*  I  4COO,  INREF.OTCOD.OTREF,  STFBIT 

COMMCN/LJGIC/SEARCN.DIAG.  SYNC  « »RI TE  .  ZERoTlEFT.CHCuL  .DNE  ,WHI  TE 
LOGICAL  iEARC  1. 31  AG.SY  NC  .  W  R I T  E  .  2 ERO  .  LEFT  ,  CriCD-  .  uNb .  «rtl  TE 


BEG  I  A  CECODE  LOOPS  RETRIEVE  NEXT  CODE  WORD  LEN-Tn  (L) 


100  2  LENBIT  =CJ0SRC(1  .  INDEX) 

_ CALL  GET-£CL.E.'4aI-T.M0aEW.PlIS»L)  . . . — - - 

IF(CIAG)  ITE(6.1003)  LE  NOI  T  ,  MO  CE  ,  L  0  I  TS  .  L 
100  3  FORMAT  (21  C.Z12.I  6) 

- ao  TO  (TO-49.  ta»OOi  tg«Si  1  fr90t»  MOOS - 

STOP  1  04  0 
I  0*0  CONT  IN  UH 

- IT  fL’STTS  VTj~  C  0  D  ^(TTIND  EX  JT'G^TC- 1  ID  (T - - - 

_ NO.- MAT  CHS  -A-Dlt AN  CS -CODE — AURQ.  -  X-N£XiZX-  VIA  .  DECODE-— LIAE  AQ - 


00009' 

00009' 

00009* 

00009 

oooio: 
OOOIXf« 
000 1 0  < 
nnm  n. 
00010 
OOOIO. 


OOOIO' 
0001  0 
OOOIO' 
OOOIO 
--0001.11 
'  OOOIO 
0001 0: 


00310 

OOOIO 

000373 

OOOIO 

.00010 

OOOIO. 

OOOIO 


INDE  X=  CODER  3(  2,  INDEX) 


IF (CODERD < 1  .INDEX) . ED. LENBIT )  GC  TC  1040 


MATCF  FOUND 


I  100  CONT  INU2 

COeLP=CDiiL‘>*L 


NOT  AM  EOL 


0001  o 
000  10 
OOOTO 
OOOIO 

-.ooa-La- 
000  10 
000  10 
oooi-o 
OOOIO 
OOOIO 
'0001 0 
OOOIO 
-  000X  0 
OOOIO 
OOOIO 


FIND  Bl  AND  B2  . 


A  0*  C  TZL° 

IF  (CTEL=».  =  ).l  )  40  =  0 


1=  *0M 

r»-T 50  -T ■: 
PSLM  1=  0 

IF  (AO. El.  0)  S3  T 3  50 


OOOIO 

OOOIO 

OOOTO 

00310 


000  10 
000  1  0 


OOOIO 
0001  0 


uuu  i 
OOOIO 
nnn  i  i 


oooio 

OOOIO 


00013 
0001  0 
- OOOTO 

oooio 

_ 0001-0 

oooio 
0001  0 
vVU  I  v 

00310 

ooot  o 


E-13 


JNCLASS  I  F I  ED 


IF<MQ.  ,n£  .^3.41  )  03  TO  70 


PEL41*PEL 
l*  !♦» 


65  CO  NT  IN  UE 
HI  *1 


IjU  I 

70  CONT INUE 

I  Cl  CCI  _  'I-' 


CO  TO  60 
90  CONTINUE 


FCL*  PEL 


IF  <  I. GT.P3L4AX)  SO  TO  92 
91  CONTINUE 


I F  <PEL  .NE  .POL  )  GO  TO  92 


92  CONTINUE 

Dill 


GC  TC  <10 0 .200 .300 . 400 ,400,400. 600. 600. 600) , INDEX 
STOP  1 OO 


PASS  MCDE 


RUNLEN*32-0TELP 


GC  TC  <1135. 1145). COLOR 


200  CONTINUE 


tNIhTSJ  • 

CALL  ONEENGIENTRY. COLOR. STATE, L> 


210  CONTINUE 

COLOR*  <33  <  COL  OF  ♦  2. 2  )  ♦  1 


CALL  OfCiNS  <ENTRY, COLOR. STATE. L) 

GO  TO  <22  0,  1  1  SO.  1190,  1200,  120S)  «  STATE 


CHCOL* . TR  US . 


VERTICAL  43  OS  A  18  1=0 


300  CONTINUE 

RUNLEN=31  -OT3.P 


VERTICAL  4 JOE  VR1  *181=1.2.3 


RUNLCN=3l-0  TELP4 1  NOE  X—  3 
CHCCL* .TRUE. 


VERTICAL  403=  LEFT  VL 1  A  181*1  ,2  .3 


RUNLEN*) l-3TZLP-<  I  NOEX-6) 
CHCCL*  .TRUE 


1  145  CONT  INUE 


1  147  CONTINUE 

CO  1150  1*1  .RUNLEN 


CT  5LP*  CT  £LP  *  l 


000106 


000107 
0001  07 


000107 

00010'. 


0001 07 
ono i tti 


000107 
0001 0. 


0001  Of 
000 101 


i>i«hai«n 

IWWl 


0001 0( 
000 10* 


OOOlOi 
000 10* 


00010* 

aaaia; 


000  1  0* 
00010* 


0001 0* 
00010 


0001  1( 


0001  It 
000  lit 


0001  K 

oooi  i: 


0001  1( 


0001  1 
0001  1  1 


000  1  1 
0031  1 : 


0001  1 


000  1  1 
0001  1 


000  1  1. 

oooi  i; 


000  1  1. 
0001 1 < 


0001  1. 

0001  1. 


W»U  I 


000  11- 


00011 

oooi i: 


oooi i: 

0001  l. 


00011- 


0001  1- 
0001 1- 


0001  1  - 
0001  1 


00011- 


UNCLASSIFIED 


- TFTBm.P- 1 .  GT  7PHCWIX)  CO  T0-TTSO - 

1  130  CONTINUE 

_ _ CO  TC  1160 - 

:  A  00  WHITE  3  UN  TO  OUTPUT  BUFFER  (BY  DEFAULT!  _ _ 

'l  135  CONTINUE 

IF  (KUNLEN  *lT  .0  )  GO  TO  1190 

- otel  p«  orrz  up  *■  rknesti - 

IF(OTELP“ 1  «  GT .PEL MAXI  GO  TO  llflO 

!  RUN  ADDED  TO  OUTPUT  LINES  LENGTH  LESS  TH AN  Ok  EUJAL  TO  PELMAX  (1) 

'i  too  eo»-WNte - 

STATUS*l 

_ RETURN  _ _ _ 

:  RUN  ACOEC  JNTIL  PELMAX  EXCEEDED;  LINE  TOO  LONG  (21 

____________  ~  '  ~  .  ~ 

IF (01 AG)  *R  ITS(6. 1 185)  ( OTBUF(  I , OTCOD ) . I » 1 . 60) 

1(33  F&RNATiOElO) - j - 

ST  ATUS«2 

_ Rg  TURN _ 

NC  MATCH  FDUNC  IN  CODE  TABLE  (3) 

I  190  CO  NT  INUE 
STATUS *3 

- WC-  TORN - 

:  rOLl  DETECTED  (A) 

■ -  - - - 1111  ■"  ■—  - - 1  — - 

*1  200  COMINUS 

- SX.A-I.LSaA - 

RETURN 


1205  CONTINUE 

- STATUS =5 - 

RETURN 

_ E— N  D _ 

BLCCK  DAT  A 


FILE  DEFINITIONS  #*•»•**• ********** ** 


*  5TFHUF(240).  ST  A  T ( 3000 ) 

COM  -1CN/MJFF /CODE (3 .92  .2 )  .CCDERD 13. I t  ) 


0001  1 
QQQi  » 
000  1  1 
00011 
OOOlt 
0001  1 
0001  1 
00  on 

OOOl  1 
00013. 
0001  1 
0001 1 
■000(1 
00011 
0001 1 
0001 1 
00011 
.  OOP 1  1 
0001  1 
0001  1 
- 300  1-1 
00011 
00011 
ODOTl 
0001  1 


00011 
00011 
0001-1 
0001  1 
0001  1 
oooi  r 
0001  1 
00.0  1  1 
0001 1 
0001  1 
OOOI  ( 
00011 
0001  1 
ooo  rr 
00011 
-OOO  LX 
0001  1 
0001  1 
•  OOOTt 
00011 
000  1  1 
ooorr 
0001  1 
0001  1 
00012 
00012 


c*********** **********  labellec  common  variables  **********************  00012 

C _ _ _  _ 00012 


CUMWLN/IV  AR/PcLMAX  , VRS5 , EPHA5S.  CMPM  A  X  ,  ERRM  JO  .  _  I  NMAX  .  A 
COMMON /PVAR /I  NLNND  . 0 TL NNC . CT  ELW  ,  INELP.  CDELP.  uT  <_i_P,  CUE.*  . 

•  - cngl  CT.  1NEI CT»  TCOATA  .  TC0E1.  »EfiRPNT..zlUiLe-E-.^SKU  M. _ 

►  ERKCNT,  INLNCT .CON SEC .0  NEC  NT . LNNQs F  .  KCNT  . 

•  INC3D . INR£F .OTCOD .OTREF .STFBI T 

-€OMMCN/fCHA«ta»BO»  Hr  MM.  TT  .  NN»  TV - 

COMMGN/L JGI  C/ SEARCH ,01  AG . SYNC . WR ITE . ZERO .LEFT , C HCLL , ONE .WHITE 
LOGICAL  S  E  ARCH.  PI  AG.  SYNC.  WRITE. ZERO.LEFT.ChD  QL  .UNc,  .  «H1  TE  _ 


00012 
-0000-2 
00012 
000  12 
OOOi  g 
000  12 
00012 
OOO  12 
00012 


DATA  TSRM.LPFIL.PELFIL.OTFIL. ERF IL/5,6.1 ,2,32  00012 

-DATA— OP.  I  I  .  .VM.TT  .MH.YY./ »  D»  «  ‘  1  *  ». '  M  *  »-  ?  T  *  »-*.N  *  _ 000-1-2 

DATA  PE- A  AX.  VRES.  EaHA SE .CMPMAX ,E RR MOD  «LI  NMAX/l 728  .2  .3  .96  .»  T*  .3000/00012 
CATA  K/2/  00012 

OA  TA-OIA j/«PAt:9C«/ - 1 - OOOtg 

00012 

DATA  CDJetl  ,  I  .1  )  .CODE  (2 »  l.i).CPCE<3.  1.  1  1/  8.  70.20035/  00013 

D'A T'A'  CD3EI  l, - 2;T7  ,C3CE<  2. - 2.1)  .CODE  (3  . - Z~.  I  J  /"6 ,~CTT0W77 - JKnJTl 

DATA  CJJcd.  3,1  )  ,  CD  DE  ( 2 .  3.  1),CCDE;3,  J.l)/  4,  4. Z  0007/  00013 

-  DAIA-X.mEt  .1  - - A..U  .CD OF  (2  . _ (L*l  )  ,cr.D£13. - A_.ll/  A. _ S.ZQQQB/ _ 000X3 

DATA  CDJEd.  5.11.CDDE12.  S.1).C0DE(3.  5,11/  4,  b.ZOOOB/  00013 

DATA  CDJEO,  6,1)  .CD  CE  (2  «  6.1),CC0E(3,  6,11/  4.  7.Z000C/  00013 

— DAT'A-'CS  3S'<  ■  1 1 - TrH-»  >COPg(  g| 7-rtdC  OOC<-3  i TyttY-  *■» =rr-2-©33€y - 

DATA  CDJEd.  8,1).  C  DDE  ( 2 .  8.1).CCCE(D,  3,1)/  4,  9.Z000F/  00013 

DATA  CD 3  E (  1 .  9, 1  )  »C DDE ( 2  •  9,l).C0DE<3,  5,1)/  S,  l 3 , ZOO  1 3/  00013 

:  5AT  V  CDTcTTT  l  O.TT«"CT5ET27  T5T1 )  »CCde<  3,  iO,i)7  s,  U7TGCnA/ - OOO'ID 

DATA  CDJctl.  11.1) . C JDE ( 2 .  1 1 . 1 ) . CCOE ( 3 ,  11,1)/  5.  12.20007/  00013 

P.1C  UNCLASSI  FI  ED 


UNCLASSIFIED 


CODE  Cl,  13. 1  )  .CODE  (  2,  1 3.  1  )  .  CO  DE(  3.  13.  1)/  6.  14.Z0008/ 


CODEC  l .  15. 1). CODEC  2.  1 S. 1 > . CODE C 3 .  15.11/  6.  16.20034/ 

CODEC  1  -  -  -  - - 


DATA 

DATA 


DATA 

DATA 


DATA 

DATA 


DATA 

OATA 


DATA 

DATA 


DATA 

DATA 


DATA 
DAT  A 


DAT  A 
DATA 
“USTA 
OATA 


CODEC l 
CODEC  1 


CODEC  1 

/ — ,  ^  n  ■ 


CODEC  1 
CODEC  l 


CODEC  1 
CODEC  t 


CODEC  1 


CODEC  1 
CODEC  1 


CODEC l 
CODEC  1 


CODEC  1 


CODEC  1 
CODEC  1 


CODEC  1 
CODEC  1 


CODEC  1 


CODEC l 
CODEC  1 


CODEC  1 
CODEC  1 


CODEC  1 


CODEC  1 
CODEC  1 


OATA 

0  ata 


OATA 

OATA 


CODEC  l 
CODEC  1 


CODEC  1 
CODEC  1 


CODEC  1 


CODEC l 
CODEC  1 


CODEC  l 
CODEC  1 


CODEC  l 


DATA 
OAT  A 


OATA 

OATA 


OAT  A 
OATA 


CODEC  1 
CODS  Cl 


CODEC  1 
CODEC l 


CODEC  1 


CODEC  1 
CODEC  1 


CODEC  1 
CODEC  1 


15.  1 ). CODEC  2 
16.1) .CODE (2 


18.1 )  .C00EC2 

19.1)  • COOE  C  2 


21  .11  .CODE  C  2 


|1  »J-. 

|TjjT3 

■fold 


23.1  )  . CODE  C 2 
24, t ) .CODEC  2 


26.1 )  .C  ODE  C  2 

27. 1 ) . CODEC  2 


29. 1 1 .CODEC  2 


31,1) .CODE ! 2 
32. I  ). CODEC  2 


34. 1 )  .CODEC  2 

35.1 )  .CODEC 2 


37,1 1 , C  ODE  C  2 


39.  1), CODEC  2 
40 .1 ) .C0CEC2 


42.1 )  .CODEC  2 

43. 1 )  .CODE  C  2 


45.1) .CODS (2 


47.1 )  .C00EC2 

48. 1 )  .CODE  C  2 


50.1)  .C  ODE  C  2 
51.  I  ),  CO  DEC  2 


53. 1 ) .CODE  C 2 


55. 1 )  . CODE  C  2 
56.  1  ), CODEC  2 


58.  1 ) .CODEC  2 
59,1  ) .CODE  12 


CODEC  1.  58.  1 ) .CODEC  2.  53. 1 ) .CODE C 3. 
CODEC  1  .  59.1  > .CODE  C2 .  59 , 1  ) ; COCEC 3 . 
CO  )  «  60.  1  )  ."C ODE  C  2  I  60.1)  ,c cdE T 3  . 
CODEC  t .  61,1). CODEC  2.  6 1 ,  1 ) ,  CO  DEC  3 . 


61.1 ) , CODEC  2 


63.  1  ).  CODEC  2 
64,1  )  .C3CEC2 


66. 1 )  .C0DEC2.  66 

67.1)  , CODE C  2 ,  67 


69,1  )  .C0DEC2  .  69 


71  ,1  )  .CODE  (2.  71 
72. I ) .CODEC  2.  72 


74,1  >  .CODE  C  2  «  74 
75.  1 ) .CODEC  2.  75 


77,  1  )  .CODEC  2.  77 


_ DATA  COJEC  1  ._78  ^i 1  ,  CQ2E_C2.  Xa»J.J  .  CO  Dfc  C  3 


79, 1 ) , CODE  C  2 .  79 
30.1 >.C0DEC2.  80 


82,  l  ). CODEC  2.  82 
33.1 > . C0DEC2 •  83 


35.1  ) .CODEC  2,  85 


37,  1  ).CODEC 2.  37 
38,1  )  .CODE  (2  .  88 


90.1  ) • CODE  C2 ,  90 
91.1)  .CODE  C  2  ,  91 


1  ). CODEC  3 
1  )  • COOE  C  3 


i ). cooec 3 

1 ) .CODE  C 3 


iI»1j 

5  m3 

•1*1- 


1  )  .  CODE  C  3 


1  ),  CO  DEC  3 
1 > .CODE  C3 


1 ) . CODE  C 3 
1  ) .CODEC  3 


1)  .CODE  C  3 


1 )  .CODE  C  3 
1 ) .CODEC  3 


1 ) .CODEC  3 
1  ) • CODE  C  3 


1  ).  CODEC  3 


1 ) .CODEC  3 
1  ) . CCOE C3 


1 ) .  CO  DE ( 3 
1  )  .CODE  C 3 


1 > .CODE  C3 


1  ) . COCEC  3 
1  )  .CODEC 3 


1 ) .CODE  C3 
1  ) .CODE  C  3 


1)  .CODEC  3 


1  )  .CODEC 3 
1  )  .CODEC  3 


1 ).  CO  CEC  3 


1 ). CODEC  3 
1  ) .CODE  (3 


1),  CO  DEC  3 
1  )  .CODE  C3 


l  ) .CCDEC3 


1  )  .  CODE  C  3 
l  I  .CODE  C 3 


1  ) • CODE  (3 
1 ) .CODEC  3 


I) «C  ODE C  3 


1  ) .C0DEC3 
l ) .CODEC  3 


1) .CODEC  3 
1  >.  CODE  C  3 


1  ).  CODEC  3 


l  )  .CODEC  3 
1  )  , CODE  C 3 


l ),  CO  DEC  3 
1 ) .CODE  C3 


1)/  6.  17.20035/ 


1)/  6.  19.20026/ 

11/  7.  20,20027/ 


1 )/  7,  22,20008/ 

1 l /  7  . 1 -Trtni 7/ 


1)/  7,  24,2  0003/ 
1)/  7.  25, Z0004 / 


1 )/  7,  27 .Z002B/ 
1)/  7.  28.20013/ 


1)/  7.  66.20018/ 


1)/  d.  32 , 20003/ 
1)/  8.  33 • Z  001  A/ 


1 ) /  8.  35 .20012/ 
1)/  6.  36. Z  00 1 3/ 


1)/  6.  33, Z  001  5/ 


l)/  8.  40.Z0017/ 
1)/  8,  41 , ZOO 2 8/ 


1)/  d.  43.Z002A/ 
1  )/  d.  44,20020/ 


1  )/  a.  46.Z002D/ 


1)/  8.  48, Z  0005/ 

1)/  d.  49.Z000A/ 


l )/  a.  51 . Z0052/ 
I  >  /  a.  52,2  0053/ 


11/  8.  54.20055/ 


,11/  8.  56.Z0025/ 
1)/  8.  57. 2  0058/ 


1  )  /  8.  59 , 2  005  A/ 

1 )/  8.  60.20050/ 
riT/'~B  .  M  TZ0DVA7" 
1)/  6.  62.2  0040/ 


,  1)/  8,  64.20033/ 
1)/  8.  69.20034/ 


l ) /  5.  67.20012/ 
,1  )/  6.  2. 20017/ 


1  )/  6,  1  ,20036/ 


))/  8.  72.20064/ 

,1)/  8.  73  ,20065/ 


At/  8,  75.20067/ 
,  l)/  9,  76.Z00CC/ 


l)/  9.  73.Z00D2/ 


1)/  9.  30,20004/ 
1)  /  9.  81  .Z00D5/ 


1)/  9.  83 .Z00D7/ 
1)/  9.  d 4 , Z  OOD  8/ 


1)/  9.  86.2  OODA/ 


1)/  9.  aa, 20098/ 
l)/  9.  89 , 2  0099/ 


1 )/  6.  I  3.2001 8/ 
l  )/  9.  >2. 2009  0/ 


CODEC  1  .  1  .2 )  .CODE C 2  .  1.21.C0DEC3.  1,21/10.  65.Z0037/ 


000  1 3' 


00013' 

00013 


00013 

00013 


00014 

i  a 


000  14 
00014 


000  14, 
00014 


00014, 


00014 

00014 


00014 

00014 


00014 


0001  4 
00014 


00014 

00014 


00014 


00014 

00014 


000  14 
00014 


000  14 


00014 

00014 


000  14 
00014 
00  0  1  4 
00014 


00014 

00014 


00014 

00014 


000  14 


00014 
000  14 


000  14 
0001  4 


00014 
00014 
00014 
0001  4 


00014 

0001  4 


00014 


00014 
000 1  4 


00014 

00014 


000  14 


ETATA  CODEC 
DATA  COOEC 


DATA  COD  £  ( 
DATA  CODE ( 


OAT*  CODEC 
DATA  CODEC 
DATA  CODEC 
tr*TA“CO  DEI 
DATA  CODEC 


OATA  CODEC 
DATA  CODEC 
•OAT  A  CODEC 
OATA  CODEC 
DAT  A  CODEC 
XTATA  CODEC 
OATA  CODEC 


OATA 

DAT  A 

P-ATA- 

DATA 

OATA 

DATA 

OATA 

OATA 


CODEC 

CODEC 

■CODEC 

CODEC 

CODEC 

"CTTEf 

CODEC 

C-OOE< 


DAT  A 
DATA 
DATA 


DATA 
DATA 
J  AY  A 
DATA 
DATA 


CODEC 

CODEC 

<■»€« 

CODEC 

CODEC 

TDH 

CODEC 

CODEC. 


DATA 
DATA 
DATA 
DATA 
DAT  A 
0  A  T  A" 
DATA 
DATA. 


DATA 

DATA 

OATA 

DATA 

DATA 

data 

DATA 

DATA- 


CDDEC 

CODEC 

CODEC 

CODEC 

CODEC 

corn 

CODEC 

CODEC 


CODEC 
CD  J  E  C 
CODEC 
CODEC 
CODEC 


OAT  A 
DATA 
&-ATA- 
DATA 
DATA 
WT 
DATA 
DATA 


"CTO  EC 
CODEC 
C3J.EC 


CODEC 
CODEC 
CODEC 
CODEC 
CODEC 
"CODEC 
CODEC 
CD  DEC 


DATA 

DATA 

&-4Y-4- 

DATA 

OATA 

Tmr 

DATA 
DATA. 


DATA 
OAT  A 
PA-TA- 
OATA 
DATA 
T50CTTT 
OATA 
DATA. 


CODEC 
CODEC 
-eo-*et 
CODEC 
CODEC 
TOD"  f 
CODEC 
CODEC 


DAT  A 
DATA 
0  AT  A 


CODEC 
CODEC 
COD  C  C 
CODEC 
CODEC 
CO  DEC 
CODEC 
CODEC. 


CODEC 

CODEC 

<?90Ef 

CODEC 

CODEC 

"TOT 


DATA 
DATA 
TSTT 
DATA  CODEC 


~27Z 
3  ,  2 
-A *2. 


5.2 

6.2 
-*r* 


3,2 

<3.2 

1077 


1 1 

X 


13.2 

14.2 
-Hhrtf 

16.2 
17.  2 

1877 

19.2 

20.2 


21  .2 

22.2 

24.  2 

25.2 

J6.2 

27.2 
2A»2 


29. 2). CODEC  2. 
JO .2 )  .CODE ( 2  . 

29 . 2  )  .CODE  C  3 
30  .2  )  , CODE ( 3 

• 

• 

29.21/ 12. 
30.21/ 12. 

30  .ZOOCC/ 
31.Z00CD/ 

J|  T  *  TV.U  JL  f  l!  V 

32.2)  .COOEC  2. 

33.2)  .CODE C  2 . 

32.  2).  CD  DE  C  3 
33.2)  .CODE  C  3 

• 

• 

J  1  .  f  r  t  A.  * 

32.21/12. 
33 ,2 1/12. 

3 j  ,  2  0069/ 
34 . Z006  A/ 

34.2 

35.2 
■16.  2 


37.2 )  .CODE  12 

38.2)  .C0DEC2 

_ 1  ft _ _ «■  '‘.ft**  A  n 

• 

• 

37.2  1, C0CEC3 
38,2)  .CODE  C3 

• 

• 

37.21/12.  38.Z00D4/ 

36,21/12.  39.Z00D5/ 

»  .  *.’JUH  l. 

40 .21  .CODE C  2  , 
41,21. CD  DEC  2. 

40,2) .CCDEC3 
41. 2>,C00EC3 

If— 

• 

* 

40.2  1/12.  4 1  .Z00D7/ 
41.21/12.  42.Z006C/ 

"5777 

43.2 

AA»2 


45.2 

46.2 

47.2 

48.  2 

49 .2 
3077 

51  ,2 
52^2 


53.  2 

54.2 
“5^«g 

56.2 

57.2 


66.2 
6  7,  2 


"3777 

83,2) 


T3DET2 
CODEC  2 
CODEC 2 


CODEC  2 
CODE  C2 
COOEC  B 
CODEC  2 
CODE  C  2 
CODEC  2 
CODEC  2 
CODE  C  2 


CODE  <2 
CODEC  2 
C-3P&C  -g 
CODEC  2 
CODEC  2 
T7C7T7 
CODEC  2 
f-flDFI? 


CODEC  2 
CODEC  2 

vUUL  f  E 

CODEC  2 
CODE  C2 
COOET2 
CODEC  2 
CODEC  2 


C7TDET2 
CODEC  2 
CODEi 2 


TDTC7T7 
CODEC  2 
COOEC 2 


CO  DE C  2 
COOEC  2 
cope -eg 
CODEC  2 
CODE  C2 
77T5ET7 
COOEC  2 
C  DDE  C  2 


CODEC  2 
C0CEC2 
sooe-c  g 

CODEC  2 
CODEC  2 


TDDFT7 
CODEC  2 


C737T7 

C0DEC2 


"777T 
3,2) 
A  .2  ) 


3.2) 
6  .2  ) 
?.-e> 
8.  2  ) 

9.2) 
"T077T 

11  .2) 
12.21 


13.2  ) 

14.2) 
-C-5.-&* 

16.2) 
17,  2) 


T3TZT 

19.2) 

Pa.PI 


21.2) 
22.2) 
g-3  rg  1 
24.  2) 
25,2  ) 
73.7T 
27,  2) 
2d  .2  ) 


"04777 

35.2) 


"47777 

43.2) 

AA..21 


45.2) 

46.2) 
4  7,g-) 


48 

49 


2) 
1 2  ) 


50.2) 

51.2) 
52.21 


53.  2) 
54  ,2  ) 
-55 1-2  7 
56.  2  ) 
57.2) 


66  .2  ) 
67,2) 


8277) 
83  .2) 


CODE  (7 
COOEC 3 
CODEC  3. 


CODEC  3 
CODE  C  3 

ceoec-p 

CODEC  3 
CODE  C3 
T0DET7 
CODE  C 3 
CODEC  3 


CO DEC  3 
CODE  (3 
-CO  PE  C  3 
CCDEC3 
CODEC  3 
'CODEX  3 
CODEC  3 
CO  DEC  3 


CODE  C3 
CODEC  3 
C0P€-C-3 


COOEC  3 
CD  DE  C  3 

code  cx 

COOEC  3 
rrnEI3 


co  de  nr 
CCDEC3 

cnniu  a 


CCDET7 
CODEC  3 
CO DEC 3 


CODE  C3 
CODEC  3 
COPE  *3 
CODEC  3 
C0CEC3 

CCDEC3 
CODEC  3 
-CCOE13 


COOEC  3 
CODE  C  3 
CCOCC-3 
CODEC  3 
C0DEC3 


5TT2T7 
59,2)  . 

■SO-  P  1  . 

CD  DEC  2. 
C0DEC2  , 
r  -inr  i  9. 

53.2), 
59  .2  )  . 
60.  ?)  . 

CODEC  3. 
CODE  C3, 
rnnr  f  3  . 

9  37  2T 
59.21 
A(1  .  P  » 

7777“ 
/  12, 
/ip. 

557ZTO50Z 
63 . ZO  059/ 
A1  .7<>n>R/ 

61.2). 
62,  2  )  . 

C3DEC2. 
CODEC  2. 

61  ,2  ). 
62  ,2)  , 

C0DEC3. 
C0DEC3  . 

61.21 
62  ,2} 

/  12. 
/  12, 

62. Z002C/ 

63 ,  Z005  A/ 

vJ  **•  1  » 
64,2)  , 
65.  2  )  . 

C  ODE  C  2  , 
CODEC  2. 

64.2) , 

65. 2) . 

CODE (3  , 
CODEC  3, 

wJi  Ef 

64  ,2  1 
65,21 

/  1 2  . 
/10. 

66 .Z0067/ 
20.ZOOOF/ 

CCDET3 
CODEC  3 


’69,2)  , 
70,2  ), 

CODEC  2  « 
CODEC  2. 

69.2 )  . 

70.2) . 

CODE  C  3  , 
CODEC  3. 

69  .’2  1 
70.  21 

/  1 2  , 
/  12. 

73 . ZOO J3/ 
71 , Z  0034/ 

72,  2  )  , 
73.2  )  , 

CODEC  2. 
CODE  C  2, 

72.2). 
73,2  ), 

CODEC  3. 
CODEC  3, 

72.21 

73.21 

/I  3. 
/  13. 

73 . Z006C/ 

74,  Z  0060/ 

T4T2TT 
75.2  )  . 
rn.Ji  . 

CDD'ET  2 
CODEC  2. 
r  -in?  (5. 

74.2) ,C  CDETT, 
75. 2  ). CODEC  3. 

7A.51  . r rnp f  3 . 

7  4,20 
75.  21 
7*1.5  1 

7T3, 
/  1 3. 

/ii. 

79.Z00VS/ 
76. Z  0048/ 

77 . 7(1042/ 

77,2). 
78,2  )  . 

CODEC  2. 
CODE  C 2  . 

77, 2 ), CODEC  3 . 
78  .2  )  .CODE  C  3 . 

77.21 

76.21 

/  13. 
/  1  3. 

7o,Z904D/ 
79.  ZOO 72/ 

■fTrSTr 

30.2) . 

31.2)  . 

ePPETTT 
C0DEC2, 
CODEC  2  . 

80, 2  ), CODEC  3, 
81  ,2)  .CODE ( 3  . 

1  79 (21 

30,21 
61,2  1 

/I  3. 

/  1 3. 

u  U  1  l  ww  T9  r 
51 .ZOO  74/ 
32. Z0075/ 

CCDEC3 


"777 

-4.2 


5.2 

6.2 

-7-r-g 

a.2 

9  .2 

10.2 


Hi 

X.2.1 


13.2 

14.2 

16.2 

17.2 

13.2 

19.2 

20.2 


21  .2 

22.  2 
-g-3-.-g- 
24,2 
25.  2 
"76 


27, 

2iL 


3472 

35. 2 

36.2 


"5777 

43.2 

44.2 


45  .2 
46.  2 

47.2 

46.2 

49.2 
"37)77 

51.2 
-32-»2 


53.2 
54.  2 
55  •  2 

56.2 
57  .2 


"E577 

67.2 


7  7 
✓  2 


/  3 
/  4 


/-A 
/  5 
/  6 
7~5 
/  7 

/ . z 


/  7 

/  a 


-0—6 
/  9 
✓  10 
/TO 
/10 
2XL 


/II 
/  l  1 

y++ 


/i  i 
/ 1 1 
7TT 
/  12 
712 


/T2 
/  1 2 
/ 12 


7T7 
/12 
21 2 


/  12 
/  12 
y-i* 
/12 
/  12 


712 
/  12 
2X2 


/  12 
/  12 
y-t-g- 
/  12 
/  12 


7T7 
/ 1 2 


63,2  1/13 


6. ZOO 077 

4,  Z 0003/ 

5.  Z0002/ 


2  .Z  0003/ 
7, Z 0003/ 
0 .200027 
9. Z 0003/ 
10, 20005/ 
11 77  00047" 
12, Z0004/ 
13  .70Q0S/ 


14.Z0007/ 
15,20004/ 
■1  b-rE-POPT/- 

1 7 . ZOO  18/ 

18. Z001 7/ 
T97TD0T37" 

1  .20008/ 
51  .7  0(167/ 


22 .  ZOO 6 8/ 

23. Z006C/ 
-24.70037/ 

25  .Z0028/ 
26. ZOO l  7/ 
2  7TZTTUT  8/ 
28.Z  OOCA/ 
23.700CB/ 


"JS7Z006B7 
39, ZOO  02/ 
.3  7  .ZQ0D3/ 


43.200615/ 
44  .200DA/ 


49  »  ZOO 54/ 
47. Z  0055/ 
40.70006/ 
49  .Z0057/ 
50.70064/ 

51 ,  Z0065/ 

52 ,  Z 0052/ 

53, ZOOS3/ 


54  ,Z 0024/ 
55.  Z0037/ 
36 .70038/ 
5  7  .Z  0  02  7/ 
53 . Z0028/ 


67',70DC8/" 
68  .  Z00C9/ 


34.20077/ 


00014) 

00014'. 

flQQ  1  4* 


00014". 
00014 
-OOOt-4-i 
00014t 
000141 
"0XT0T4T 
000  141 
QuO  14 ' 


00014t 
00014- 
000141 
000  14i 
000141 
T00T4* 
000 1 4: 
OOOl  4 


00014* 

00014* 

-000-14 

00014- 

00014' 

00014': 

00014* 

OQOlSl 


000151 

00015 

Aft  A  .  g  - 

vwcn 

00015 
0001  S> 
00015* 
00015* 
-0003  Si 


00015 
00015 
-OOPCS 
00015 
00015 
000  IE 
00015 

oooia 


00015 

00015 

oootc 

00015. 
000  15 
000  i  E. 
00015 
OOOl* 


00015 
00015 
-POO- 1C 
00015 
00015 
TOO  IE 
000  15 
-OOP  IE 


00015 

00015 

ft  ft  /v  .  <— 
WWWT3 

000  15 
00015 
OOOl  E 
00015 
-QOOli 


00015 
00015 
-POO  15 
00015 
00015 
003  1 E 
00015 
000  15 


00015 
00015 
POPCS 
OOOl  5 
00015 
TOOTS 
00015 


E-1 7 


UNCLASSIFIED 


UNCLASSIFIED 


tricTx 

DATA 

DA-LA. 


■cjjen 

CODE!  i 
XJLXEi  I 


34.2) ,LDDE(Z, 

as, 2 ) .CDOE(2, 

**-?>  -fnnF(?  . 


B4~.ZT  .COPE  (Si 
85,  2  )  ,  CO  OE(  3 1 
aft.21.CP0FI3. 


g  a  .  2 1 7 .  ~a  y,  zoos  z  / - oxrorr 

as. 21/13.  ao, 20053/  ooois 

atul/l-l.  a  7  -  7QQSA/ _ O  OO  l  a 


DATA 

DATA 

PAT* 

OATA 

DATA 

■mmr 

OATA 
.  HAUL. 


COD SI  1 

cooei 1 
<a»€t  > 
CODE! 1 
CDDcl  1 
~COJHTl 
C3DERO 

oaea  a 


37,2).  CODE  I  2. 
38.2  )  .CODE  12  , 
99.e>rCPPEl 


87r2).C00E( 3, 

as  ,2  )  , CCOE ( 3 • 
o».e> .eeeei a. 


87,2) / ID. 

a a. 2)/ u. 


sa, 20055/ 
39. Z005A/ 


00015: 
00015 
OOOIS< 
000  15 
000 1 5. 

ooo  rr 

000  15. 

oaoi.si 


90.2)  • CODE (2, 

91.2)  • CODE ( 2 • 

02 . 1 )  .  C'JDE  1 


90. 2) . C00EI3. 

91.2)  .CODE  (3  * 

- -  ..  O272),C0DrT'3. 

1  .1 > .C00ERDI2 ,1 ) .CODERD (3,1 

•  - --jr -  -* - - -  •  ~  - 


90.2 
91  ,2 


, — rvn 

)  /  1 3.  91,2  0064/ 
1/13.  93,20065/ 

rrrr.  dj.zoooj/ 

5,21/ 

4.23/ - 


7T 


rzrz 

>/  ♦  . 

i.M.fnaieni  ?.?i.fnnFBfti  3.?w _ ** 


DATA 

OATA 

OATA' 

OATA 

DATA 

DATA" 

DATA 

OATA. 


CODERD 
C3DE9  0 
CODER  Q 
CODER  O 
CODER  0 
CODERD 
ODER  y 


1  ,3  >  ,  CODERD  (2,3  ).  COCEROI3, 3  )/  1.  2.2  1/ 

1.4) , CODERD <  2.4) .C00ERDI3 .4 )/  3.7 ,21/ 

■9 > .  COO€RO|-2. 5- H C-OOf  WCH^.  5  »•/ - 6.  «r»E3/ 


♦ 

1.6)  .CODERD (2,6 

1.7) ,  CODERD!  2.  7 
I".  HTTE  ODE  R  D  R'.'B 
1. 9), CODERD!  2,9 
i  .10 i.cnDFRn!?. 


00015 

00015> 

00615. 

00015 

00015 

umm 

00015 

QOQI  5 


)  ,CCDER0(3,6 )/  b.a.21/ 

). CODERD! 3, 7)/  3,1.22/ 

).CU0EH0T3.a  )/ - 6, 97727 - 

)  ,  C  ODE  RO  (3,9)/  7.10,21/ 

lal.CODEaOl.l.IQ)/ _ 13.  1  1.23/ 


C 

c 


DATA  CODERD 


1.11  )  .CODERD (2.1 1 ) .CODERD! 3 .1 1  )/  13.12. 22/ 


C  H  -P - 

SUflROUT IN  £  CO  DELN!  LENG  TM  .POLAR  ,CDE  LC  T , CDD AT A) 


00015 
00015 
miE 
00015 
00015 
OOOT5 
0  0015 
-JUULL& 


— rRPCTCTT  IN  TEG'ER!  A-Z) - 

COMMON/BJ  FF/PELBJF ( 60. 2) .CDBUF ( 240 ) .0 TBUF ( 60. 2 )  . 
J _ S.TFBL1F  i  2-AQ  1 .  STAT <30001 


C*< 

C 

C 


COMMON /HUFF /CODE!  3 , 92 . 2 ) .CODERD ( 3,11) 
CCMMCN/ER  AY /ERRORS  I  2500  ) 


00015. 

00015 

OOOIS 

00015 

00015 

-otnnrsr 

00015 

ooois 


.*M»MMM»MH*M**«M**M**  3EGIN  PROGRAM  * 

TNTT TALI  CRAKE  UP~CnDET‘NAKE UP  "CEDE  "TFRCTTH 


MCCOEaO 


C 

-e- 

c 


ML  ENG*  0 
CMCeK  INPUT  5 


OOOIS 
0001  5 
00915 
0001  3 
OOOIS 
W0T5 
00015 
000X6 


IF  ( PCLAR.  LT  «  l  •  OR. POLAR  «GT  .21  CALL  EJC  IT 

■■irCLmCTFTTJT.aiOR. LENGTH. GT.I72a)  CATC  EXTT 


IF  CliCNGTH^LE.  63)  ..GO -IQ.  10- 


C 

C 

-e- 

c 


CALCLLATE  MAKS  UP  CODE  INDEX,  CODE.  LENGTH 
— ANP  WOITE  T3  COSE  L  I  Mg - 


00016 
00016 
000-16 
000  16 
00016 


INOE  X«LSNG  TH/64*  64 


WCC3t=C3D  EC  T,  riD=X.  POL  ART  - 

ML ENG* CODE! 1,1 MDEX , POLAR ) 

oOOl  6 
00016 
flflO  1  A 

CCELCT*CDELCTtMLENG 

CODA  TA*CDDA  TAT  4LENG 

000  16 
00016 

C 

c 

CALCLLATE  TERMINATING  COOE  INOEX.  CCDE.  LENGTH 

AND  ACD  TD  CODE  LINS 

- 0061*  6 

00016 
000  16 

c 

t  0  CONTIN  IE 

“00TJT6 
000  16 
-OQ0X6 

TCCDE*CODE(  j,  I  MOEX,  POL  AR  ) 

TL  ENG*  C3D  S(  1 . INDE X, POL AR ) 

00016 

00016 

coslctcjelctttleng 

cocata*cjdatattlsng 

00016 

0001b 

c 

RE  TURN 

F  N  P 

OOOT  6 
00016 
00016 

c 

SU8RCUTI  ME  ERRMESIP  EL.3UF , OTOUF  .PELMAX  ,  VRES.  ERhCNT  ) 

00016 

00016 

c*< 

1  ™  rL  I  I  *  I  ■  ,  1  U  uLH|  ^  if 

REAL  SSF 

000  16 
0001  b 

c 

COMMON  /i 3231 T/MAS<(  32 ) .COMA SK ( 32)  ,LlBIT(32)  .L2QIT(32) 
INTEGER  MASK. COMAS* .L lOIT .LZRIT 

OOOl  (f 
00016 
OOOl  6 

c 

c*' 

000  16 
0001b 

_£ _ 

COMMON /fi  LS S/TSRM.LPFI L.PELFIL.CTF IL.ERFIL 

0061  (j 

00016 
OOOl  b 

01  **•  K51  }M  p ?L aurjSO)  .  CTSUF(6?TT 

COMMON/.  JGIC/SEA9CH.DIAG 

'  — aoors 
00016 

UNCLASSIFIED 


c 

XI 

- L'CGTCAL  SEAHCHiUTAG 

- 000T6 

00016 
....MAH  1  A 

c 

REWIND  PELFIL 

00016 

00016 

ERRCR*0 

OTELW*  |P£  LM  AX*  32-  I )  /32 

00016 

00016 

c 

c 

nrorrr-o 

B?*n  AM  mariB  FSFP  1  IMP 

ODD  1 6 
00016 
QfiQ  t  6 

c 

too  CONTINUE 

00016 
000  16 

c 

IF ( MCO (I MLNNO— 1 • VRES ) • NE *0 )  GO  TO  t00 

00016 

00016 

JT 

C 

READ  AN  ERR OR -CORRUPT  ED~L IHE 

3rtn  mMTTMiiP 

00016 
000  16 
ann  i  ft 

RE ADI2  .END*500.ERR*800  )  CTLNNO, OTEL CT  .OTBUF 

0TLNCT*0TLNCT*1 

00016 

00016 

C 

c 

COUNT  DIFFERENCES  BETWEEN  TRANSMITTED  AND  RECEIVcD  LINES 

00016 

00016 

TT 

DO  4S0  1=  l.OTELW 

if  iniRiiPi  1 1  .F.i.oFi  miPi  1 1  >  r.n  Tn  a*o 

- 00016 

00016 
OOOI  h 

IF!  .NO  T.  J  IAG)  GO  TO  420 

WR  IT  El &.»  10  )  INLNNO.OTLNNO.I  .PEL9UF(  I>  .OTBUMl) 

00016 

00016 

420  CONTINUE 

CO  440  J* 1. 32 

00016 

00016 

IFtT40tlTUJF(  I  1  .  J  ,  1  )(  fit.  14  a  I  PELBUF  (  1  1  •  Ji  1  )  1  ERROR*  cR.R  JR  *1 
*40  CONT INUE 

aso  rnKTiHii'  . 

UOU16 
00016 
ODD  1  ft 

C 

IF  I OTLNNJ— I NLNN3 )  200.100.580 

00016 

00016 

c 

c 

COUNT  DIFFERENCES  3  E  T  wE  £  N  GOOD  AND  ALL  WHITE  LINc 

00016 

00016 

500  CONTINUE . 

CO  550  I*  l.OTELW 

IF  l  DF|  FUIF  <  I  I  C-0  TC  550 

- 00016 

00016 
non  i  a 

IF(  .NOT.O IAGI  GO  TO  520 

WRITE!  6.  <*10  >  I  NLNNO  .  OTLNNO.  I  «  P  EL  BU  F  !  I  I.DTBJF1I  J 

00016 
000 1  6 

UCv  V  J*  1  T  I  i4  VI  * 

CC  540  J= 1 .32 

IF(I4B(P£L3UFCI)  .J.U.NE.O)  ERRCP=EfiRCRM 

00016 

00016 

-C- 

550  CONTINUE 

00016 

00016 

580  FEAC (l  .EN0=600 .ERR=800  )  INLNNO , I NELCT . PELBUF 

IF ( MOD! I NLNNO-I . VRE S) . NE.O)  GO  TC  580 

000  It 
00016 

v” 

c 

GO  TO  300 

00016 
000  16 

T 

c 

CALCULATE  wRRJR  S^rmVTTT  "FACTOR 

60  0  rOMT  IMUF 

- 0061b 

000  16 
non  t  f 

ESF^O. 

IFIERKCNT.LS.  0>  GO  TO  650 

0001  6 
00017 

c 

650  CONTINUE 

000  17 
00017 

wRlTE!6,70o  j  EffR'TOTFRR'CNT ,  E5FV0TLNCT 

700  FORMAT!  '0NJM9EP  OF  INCORRECT  PELS  a'tllO/ 

a  t  ,i  Mii.wnptt.  np  BJT  «i  in  f-RRnn  transmitted  *  •  »  |  \a/ 

00XTT7 

00017 

*  'OERROR  SENSI tl VI TY  FACTCP  **.F12.4/ 

*  *3  TOTAL  NUMBER  OF  OUTPUT  LINES  PROCESSED  *  *.18) 

000  17 
00017 

“C* 

RE  TURN 

800  CONT INUE 

00017 
0001  7 

5TC0  8 00 

END 

SlincrilTIN  S  IT  ATS  II  CMftr.  R.  INI  Mf.T  .  Ol  A.1> 

- 00017 

000  17 
OQO  L7 

c 

IMPLICIT  INTEGER!  A-2) 

00017 
OOOI  7 

REAL  STT!  2.  5).  SUM,  SUMSQ 

LOGICAL  0 IA0 

00017 
OOOI  7 

cnm  *  *  rrmrm  FILE  DEFIMTICN5  ******************** 

c 

- OGOT7 

0001  7 

E-19 


UNCLASSIFIED 


UNCLASSIFIED 


c 

- xjxnn  t 

00017 

rtOrt  1  T 

— 

c* 

>••••* 

00017 

00  3 CO  I»  1.5 

ITT  (  1.  n«  10000 

00017 
0001  7 

-  m(2,  ij«  o 

SUMS  o . 

siiM<;fi*n  - 

00017 
009  17 
non  i  7 

c 

00  100  Jrn  l.INLNCT 

000  17 
0001  7 

c 

L£  N*  MAXO ( L  ENGT  H(J)*MTT(  I)) 

00017 
0001  7 

iFTtrmn  wrrcj  675c) j  len 

SO  FORMAT  (18) 

L  '  |  . . . .  ■  I  1  l|| 

WWWB—  T  HI J 

c 

c 

FINO  MINIMUM  LINE  LENGTH 

00017 
0001  7 

c 

c 

F I  AO  MAXIMUM  LINE  LENGTH 

00917 

00017 

c 

ITT  (2.  I)«M4X0(L£N.  ITT(  2.1  )  ) 

OOOT7 
00017 
nnm  7 

c 

c 

FIND  SUM  Or  LENGTHS 

00017 
0001  7 

SU  M  SO*  SUM  SJ«-(FL0AT(LEN))**2 

100  continue 

00017 
0001  7 

~x~ 

c 

FIND  SAMPLE  MEAN  ANO  STANCARO  DEVIATION 

00017 
0001  7 
OflO  l  7 

ST  T  (  1.  I)«  SUM/FLOAT<  INLNCT) 

STT(2. I)  =  SJRT (  (SUMS  Q— (SUM* *2  )/FLOAT(  INLNCT ))/ F L LA T (  IN 

000  1  7 

lNCT-DI  00017 

c 

MR I  TE(6.4  OJ)  (I  TT(l  ,1 )  .1*1  .5) 

0001  7 
00017 

400  FORMAT  ( 

•'0  MINIMUM  TRANSMISS1JN 

_ *  •  c  nn  rn  i  t  mc  .  / 

T  lMt 

0U9T7 

(  4800  BPS)  • //000 1 7 
non  i  7 

*•  LENGTH  0  MS  S  MS 

•  •  statistics;*// 

10  MS 

20 

MS  40  MS* /  0001 7 

000!  7 

WRITE (6.4 10  )  (  ITT (2 •  I ) .  1-1 .5) 

410  FORMAT ( 

■  ■■  440 1  7 

00017 
0001  7 

4T  MAXIMUM' , r0^.3( I8I//I 

MR  I T  2  (  6*420) ( STT( 1  ,1)  .1*1  ,5) 

0U01  7 
000  17 
OQ0  l  7 

♦  •  SAMPLE  MEAN*  ,9X  .5  (F8  .2  )// ) 

WR  IT2<  6,  <*  33)  (  STT(  2,  I  )  ,  I»1  ,5) 

ooo  i : 

000  17 

c 

*•  STANJASO  JEVIATION*  f2X  ,5(Ffl,2)  ) 

000  17 
00017 

0 

ePnUdN 

FNfl  OF  nCEC  UPPtMT  PROGRAM. _  .  .  .  _ 

-1MLS- 

oooi : 

00017 

PklXIiJlt  1615 

APPENDIX  F 

FLOW  CHART 

FEDERAL  REPUBLIC  OF  GERMANY 


ftWMGTBES 


Gei-l<z 


!  £--4- 


lice.  Bit 

KTTT>  UXO&iZ- 

£  lPp<;<l 


mcoc 

1  =1 

‘~T 


CiTVrtjJ 


Z.6/^  F&TC—iaD 

/ir  /a/  iv.<3^  ^XvTT'  vUS’yer/^j 


mmmmmrnmmi 


APPENDIX  G 
CODE  LISTING 

FEDERAL  REPUBLIC  OF  GERMANY 


-mj  -■»**.** -~W«»  -W.HWC*  4 


JNC.ASS IFIED 


STKHT~ 

C 

OF  OCEC  JPHIWr  - O'SNAHEgNOOSgC'VEWWCNrFaHT - 

PROGRAM  GERMAN 

tMDI  Tr  IT  !MTri-.ra/i.7| 

OOOOOt 

noonoi 

REAL  CF3,  CF4,  ERRATE 

OOOOOt 

OOOOOt 

COMMON  /G  32  81 T /MASK ( 32  ) . COMASK ( 32 > . L I B IT < 32 ) . LZ B IT ( 32 ) 

INTEGER  MASK. COMASK. LIBIT. LZBIT 

00000' 

OOOQOt 

T  " 

ft 

COMMON /3UFF/PEL9UF(  60.2)  ,C08UF<240>  . 

nmipr  ao.  r»  i.stfbufi  ?  an » .  <;ta  ti  loom 

uooOoi 

OOOOOt 

OOOOO 

ft 

COMMON /HUFF /CC3£( 3 .92 .2 ) .CCDS  <3 .68 .6 l.PREDCT (16 ) . NPkED ( 16). 

CTABLE(  16)  ,C  STAR  T (  l 6)  ,STBUF( 1728) . STRUNU  72  8) 

00000 

00000 

C*A**« 

c 

00000 

00000: 

c 

rft  ftftftft 

oOOOo 

00000 

OOOOO 

c 

COMMON /IV  AR/PELMAX  .  VRE  S  .  E  PH  A  SE  .  C  MPM  A  X  .ERR  MUD..  Li  NMAX  ,K 

00000 

00000. 

4 

ft 

>  COELCT.  INELC  T,  TCDATA  .TCDEL  .E  RRPNT  .  cRRCFF  .  E  RRLI  M  . 

ERRCNT  .  INLNCT • CONS  EC.LNNO  BF, ZGNT  «  WR  uBUF ..PACK* 

OOOOO. 

OOOOO 

- * 

'  1  NC  UU  .  1  NHcF  .LI  LLU  .LI  KtF  .  1  b  lt-di 

COMMON/ ICHAR/OC.  I I.  MM, TT.NN. YV 

rr.vrN/i  iifli  f/SFiorH.nt  a c,  .sync  .lss.wr  ttf.  chchl  .  lnc 

“O'ODTJ  0 
OOOOO. 
OOOOO 

c 

LOGICAL  SEARCH, DIAG. SYNC .LSS.WRI TE .CHCCL.ONc 

00000. 

OOOOO. 

90 

100 

WR  IT  E  (  6,  1  00  ) 

FORMAT (• S PARAMETERS :  INPUT(=I),  OR  OEF AULT (= D) 7 • ) 

00000. 

OOOOO 

110 

RE  40(5 . 1 TO i ERR  =  90 )  INITW 

FORMAT  (A1  ) 

tf  iiNS..',i.m)  r:n  rn 

uoDuo. 

OOOOO 

OOOOO 

c 

IF  (INS4.NE.II)  GO  TO  90 

OOOOO. 

OOOOO 

c 

11  4 

WRITE( 6. 1  IS) 

OOOOO 

OOOOO. 

05 

i 

FORMAT  (■  rCxaGNust  it  WriNTTOUT 7  (Y  CR  NT!  rT 

REAO(S.llO)  I  NSW 
if(Tnsi,.fo.yyi  r.n  rn  l  if. 

OOOOO 

00000 

OOPOQ. 

IF  (INSW.EO.  NN)  GO  TO  120 

GO  TO  114 

00000 

00000- 

C 

Ct.  hT  Irlv  » 

DI  AS=.  TRUE. 

OOOOO 

OOOOO 

C  READ  VAXI4U.  NU 

i2n  rnKT  ifju??  ......  _  ...  ........ 

00000 
00000- 
.  OQQQQ: 

130 

WR  I  TE(  6.1  30) 

FORMAT  (•  JEN TER  MAXIMUM  NUMBER  OF  PELS  PER  LI  Mi!  •) 

OOOOO 

00000 

140 

FORMAT!  14) 

IF(PELMAX  .GE. I  .ANO. PEL, MAX  .LE  .  1728)  GO  TO  loO 

OOOOO 

00000 

ISO 

w«  1  Y£(  6.  1  So)  PLUM*  X 

FORMAT  ('ONUMBER  OUT  OF  RANGE  (  =  ».I6.,),» 
r.n  Tr  12 cl 

000UU 

OOOOO 

oooon 

c 

C  REAO  VERTICAL  SAMPLING 

00000 

00000 

160 

CO  NT  INUE 

WR I TE ( 6.1  70) 

00000, 

OOOOO 

— mr 

IflO 

FORMAT  (**  =.N  lER  VERTICAL  SA  MPU1  NG  !  *T 

READ  (5  .180.  ERR  si  60  )  VRES 

FORMAT!  I  2  1 

OOOUU- 

00000 

OQQQQ 

IF (VRES *G E . 1 . AN  D.VR  ES .LE  .  10 )  GO  TC  190 

WR I TE( 6,1 50) jVRES 

OOOOO- 

00000 

VU  1C - - 

C 

C  REAO  PARAME  TcR  K 

00000 

00000 

c 

190 

CONTINUE 

WR  TTF!  A.  1  62  ) 

ooooii 

OOOOO 

OOOOO 

192 

FORMAT  (•  RENTER  PARAMETER  K!  •) 

RE  AD (5,140. £RR  =  1 90)  K 

0000  0 
00000 

WR I TE (6,1  50 )  K 

GO  TO  190 

OOOOO 

00000' 

T - 00000 

C  REAO  ERROR  PATTERN  °HA SE  00000 


0-1 


UNCLASSIFIED 


.k. 


UNC- ASSIFIEO 


200 


CCNT INUS 

210  FORMAT  I'AENTER  ERROR  F>A TTERN  "pHA^E  :  •  ) 

RE ADIS  ,22  O.ERR=200 )  EPFASE 

eeo  Foww-Af  »tt-> 


OO000E 
0000 Ot 
QQQQQf 

OOOOOt 

OOOOOt 

oooooe 

OOOOOt 

OOOOOt 

00000? 

00000? 

nooooc 


IFlEPHASc .GE.O .AND.EPHASE.LE.3) 
V«R  I  TE!  6.  1  50)  cPHASE 
SO- TO  200 


GO  TO  240 


.LENS  TH - 


240 


CON  T  IN  Lc 

w-wit  e+6»-g-5o+- 


250  FORMAT  !•*  EN  TER  MINIMUM  COMPRESSED  LINE  LENGTH:  •> 
REAO!5.140.ERR*240)  CMPMAX 

IFTCNPMAx  •  GE«  0  .  XNDVCMP  MAX'.LE  •YVZTfl  CO  "TO'  320 - - 

MRITE(  6.  ISO)  CMPMAX 

_ GO  TO  240  _ _ _ __ _ 


RE  AO  NUMBER 
Jg-O  C-f»NT!NUC 


OF  SCAN  LINES  TO  BE  PROCESSED 


OOOOOS 

OOOOOS 

oeooos 
OOOOOS 
OOOOOS 
000X10' 
OOOOOS 
QQOQ I C 
0000  IC 
00001C 
OOOOK 
OOOOIC 
0000  1C 
UOOO  IX 
OOOOIC 
OOOQI 1 
OOOOIC 
0000 t  I 
OOOO 1 1 


330 


WRITE!  6.  330) 

FORMAT  !'  ANJMBER  OF  SCAN  L  INES  JO  Be  PROCESSED*  ?  •) 

IF1L  IMMAX  .GE.l  .AND.L 1NMAX.LE . JOOC)  GO  TO  260 
-  WR1  TE  1  6 . 1  SO  1  LI  NMAX  _ _ _ 


C 

C 


GO  TO  220 
REAP  CRRCR — MO-OS- 


280  CONTINUE 

WRITE!  6,2  SOI 
290  FORMAT !« *£RROR 
- -flE-AOX&.aL  CUEIRR; 


IF  {  ERR  m3  J. SQ.MM)  GO  TO  300 
IFIERRMOJ.EO.TT)  GO  TO  315 
lF!CRPMOJ»  «C»:!N)  -Oe  TO  gOO 


MODE*?  (  M=MANUAL  •  T=  TAPE  »N—NJ  ^nORS)*) 
2  501  EUKMOn _ _ _ _ 


0003  1  1 
0000  1  I 

aooxm 

00001 J 
MOOCL11 


0000  1  1 
00001 : 
— OOOO 1  I 
0000 1< 
0000  1. 
oouo  i : 
00001. 
QQQO  i . 
00001. 
00001. 
— ooeoic 
0000  1. 
0000  1. 
— oooot. 
00001. 

_ OQQO_1. 

0000  1. 
0000  1 
00  0  0  l" . 
00001 
0000  1 . 
— 00001. 
0000  1. 
...  OXlOQX 
0000  1 
00001 < 
— 06001- 


c 

c 


GO  TO  350 

■  R  FACT  ■  ERR  0RCTCATI3NXT' 


TOO  CflNTIMLE 


ERRL  IM  =  l 
305  REAC15.140)  ERRORS IERRLIM) 

- »Ftr-RR0)T5!ERRL  IM  )«CQ»6999)  60  TO  310 

ERRLIM*ERRLIM«-l 
GO  TO  205 

310 “CUNT  INUE - - 

ERRLI MsERRLI M-l 

_ CO  TO  350  _ 


C 

c 

-e- 


READ  ERROR  TAPE  FILE  ANO  OPEN 


315  CONTINUE 


TJrcurM^i - - 

RE  AD (3.31  8,END=317)  ERRORS IERRLI M) 

■  EBRL  IMjtERRL  IM*X. 


316  RCA013  .31  8.6ND*317)  ERRORS  I  ERRL  IM  ) 

318  FO  RM  AT  !I  1  6) 

C-RRORSXeN-RL  IM)— jR!»3R9-HjRP-L-IM)  >  ERRORS  <  ERRL  I M — H~ 


ERRLIM==RRLIM«-  l 
GO  TO  316 

31  7  ERRLTM*ERRLIM-r 


0000  1 
00001 
(TOO  01 
00001 
_oaaox 
0000  1 

00  00 1 : 

a  . 

UuvU  1 
0000  1! 
0000  l 
-0000 T 
00001 
_  0000.1 
0000  1. 
00001 
-6000+ 
0000  1 
0000  1 
“3OO0T 
00001 


c 

c~ 


T«jfl  fniiriMiP 


360  CC  NT  IN  US 

- Wft+TC  INPUT — *4MAME-F€M9" 


WRITE16.400  )  PELMAX ,VRES .K.EPHAS E. CMPMAX, LINMAX 

■«0"T(TRM’AT{T1IX3UT  PARAMETERS  ! «  / - ; - 

*  *0  MAX  I  MUM  NUMBER  CF  PELS  PCR  LINE**, I  6/ 

_ * - La.tf£.a.MCAl _ SAMPl  IRC!  Ns  *  .14/ _ 


* 

* 

-*■- 


•OPARAMETER  K  =  •  , I  4/ 
*3.=.?R?.R.PAirERS|  P^ASE  =*,14/ 

•0NJM3ER  OF  SCAN  LINES  TO  0  = 


IF!  ERR  MOD  .EO.NN)  Wf  .  ... 

♦  I  6  fOrmAV  t  •  osJd  errcQS"  J  n  5E1TTED  • ) 


rrrTT'j^a 

IFIERRMCD  .EC. MM) 


WRI TE  16  .4  10 ) 


PROCESSED  **.16) 


WRIT  E  (6, 140  )  i  ERRORS  !  I  ).  I*  l  .  ER  kL  IM  ) 


0-2 


UNCLASSIFIED 


|n*4nnl  I  I  „  a«V»  L  _  lnnP  <tnA 


unclassified 


- IM'EKKHUjyiWm  "«H1TE(6,»2U)  gTTWCTW - 

420  F0  RMAT  (112*  •  ERRORS  OBTAINED  FROM  ERROR  TAPE*) 
«•»  —  »*****«**«»»*■**»  agr.Tu  Donr.Dtu  tMMMAMMMMMMMMMMt 

INITIALIZE 


TCCEL-0 
TC0ATA*0 
ERRPNT*! 
ERRCNT  *0 
INLftCIaQ. 


ERROPFaE*  HA SE* 1024 
CDELCT  *32 

otelp*  t - 

CDeLF*  32*  l 
CONSEC*! 

INREF*  I  - 

INCC0*2 
-CXBEEj-L- 


CTC0C*2 


- eo  0-00  !-■  1  r240 - 

STFBUF (I ) =0 
CDBUF(  I)=  0 
BOO  CC'KTTNOS 

DO  eso  1*1,60 

_ fll-eaEX-UJl  iaEF.laO— 

0T8UF (  1, JTCCO) =0 
PELBUF(I.  INREF  )  *  0 

- PEL eUF  «■»  .  INCO  O H»'0 

850  CONTINUE 

SEARCH*. TRUE. 

- SVKC  =  .FAL5r. - 

WRITE*  .FALSE. 


search  mode:  lock  for  eoli  eiT-eY-oiT 


►OO 


CENT  INUE - 

L*  C 

LSS*  .FALSE. 


TCKTiTT 


WROB  UF  =0 


910 


LP  ACKs-Q 


CALL  GETLG (13 .MODE, LBITSaL ) 
GC  TO  (91 0. 930, 930. 920) .MODE 

■3-T-CP  -»00 - 

CONTINtE 


ECL  KCT  FOUND;  ADVANCE“PC  INTER  AN  C  TRY'  "AGATN" 


- .C0£Lg*C3-L.~y»l - 

GO  TO  SOO 
9  20  CONTINUE 

- -ST-CP-  oge - 

930  CONTINtE 

- ECU  FCuKO - 

_ SE-ASCHs.F  ALSE  . _ 

CDELP=CDELP*L 
IF(WRITE)  GO  TO  935 

- WRI TE-»TRUC« - 

GO  TO  960 

>  35  CONTINUE _ 


SET  OUTPUT  DECODE  LINE  TO  0  ANO  WRITE  CUT 

- DO  .9 SO  I=L*£Q - - 

OTBUF ( I , J  TCOD) *  0 
>50  CONTINUE 

- WRITE  (2-) — gTfcNNOrPCLMAX  .(CTBUM  I  rCT  C  CO-H  1*1 , 68  >  - 

OTLNNO*LNND  OF 
960  CONT INUE 

- IF  t MODE-2 )  965", TO- JO  ,  900 - 

>65  ST  CP  9  65 

iftfln  rnKTTMiir- _ 

PERFORM  CNe— D 1  MENS IONAL  DECODE  OF  A  COMPLETE  _IXt 

- rlRBTrSE  T  O  UTP»T-  DUFF  ER  -  TO  -WHI  TE - 

(ONLY  BLACK  RUNS  WILL  BE  INSERTED) 

- CO  ’  r0T5  I  =  rT60 - 

*OTeuF<  I  ,DTC00  )*0 


00007) 
000011 
aaaai 
OOOOlt 
00001 
0008 1< 
00001 
00001 
00001 
00001 
nnoni 
00001 
00001 
00001 
00001 
00001 
00001: 
00001 
QOOQi 
00001. 
00001 
■OOOO+i 
00001 
0000 1: 
•00001 
00001 
Q0Q01. 
00001 
0000 l1 

-oooot- 
00001 
00001 
00001 
00001' 
OOOOl 
00001 
00002. 
00002 
00002 
00002 
'00002 
00002 
00002 
00002 
00002 
-00002 
0000  2 
00002 
■00002 
00002 
-00002 
00002 
00302 
-00002 
00002 
00002 
-00002 
00002 
-00002 
00002 
00002 
-00002 
00002 
00002 
-00002 
00002 
00002 
00002 
00002 
■  00002 
00002 
00002 
■00002 
00002 
-00002 
00002 
00C02 
-00002 
00002 
00002 
00002 
00002 


G-3 


UNCLASSIFIED 


| v*f*:r***\ 


UNCLASSIFIED 


TonrtoTmN'U! 


IN0EX»3 


COLOR*  J 
CTeLP-  l 


000U2 
00002 
MO  002 
00002 
00002 
-ooooe 


LSS*  .FALSE. 
ZCNT«0 


CALL  ONEGeR  (  INDLX.  COLOR.  STATUS  ,L  ) 

MX 

1  2  3  4  S 


00002 

00002 

00002 


00002 

JUUU2 


ST CP  1000 


00002 
00002 
0000  2 


C 

C 


ALL  RUNS  A  JDS  3 


CNE*  .T  RUE  . 

_ tf  trtf!  3-1  -pflmaxi  ia.u  .IQS?  .lOfin 

1031  CONTINUE 

IF (CMC  CL)  COLOR*MJDI  C0L0R42.2  )♦! 


00002 

00002 

00002 


00002 
0000  ~ 


tNOCW 


00002 

00002 

-09004 


GO  TO  102  0 
3000  CONTINUE 


TT 

C 

C- 


PERFCRM  TWO-DIMENSIONAL  OECODE 


c 

c 


FIRST.  SET  OUTPUT  BUFFER  TO  WHITE 


<-ONL  Y . OL-ACS  -RUNS  WILL  6£ — INSCR-TEO) 


00002 

00002 

00002 

00002 

QOQQ2 

00002 

00002 

-ooooc 


00  3CIO  I  *1  .60 
CiPUtTTiJTC  JD  0 


00002 

00002 

"00002 


3010  CONTINUE 


c~ 

c 


CT  ELF* 1 


L"9  9»  iFAL  Jgi 


00002 
onnn? 
00002 
00002 
0000  2 


ZCIST*0 

CALL  T WOGERI I NDEXjCCLOK. STATUS. L) 

“CP'  T  P  130  3J.1  073  .  nr70Tia  3~,  TO  40T VSTJmjST" 

l  2  3  4  S 

_szoe_iaao. _ _ 


00002 

00002 

00002 

00002 

OOOOL2 


RUN  added;  ljok  for  next  run 


00002 

00002 

00002 


1030  CCMINLS 

_ ONS=j£AS^aJis- 


LINE  LENGT4  =P  ZLMAX  *,  CHECK  FCR  FILL  AND  LCOK  FUN  EULl 


00002 
00002 
BO  002 


032  COM  INL3 
ZER<?  =  -  i 


00002 

00002 

00002 

00002 

-OOOOi 


1 


ZC  NTsO 

033  CO  NT  IMtJF 

- 


WR  CBUF*0 
LRACKsJ — 


L=  C 

CALL  GET_  G<  1, MODE, L9  ITS.  L  ) 


00003 
00003 
00003 
00003 
00003 
0000  3 

00003 

-00003 


c 

r 

c 


GO  TO  ( 1034.  1060. I  060.  I  050) .MODE 

xhfc  rroimn: - 


.1  03  A-  CQM  I  HUE 


CDELP*  CDcLP  H. 

IF  ILOI-TS.  £0»0->  OO  TO-H>»3- 


00003 

00003 

00003 

00003 

aaaoj 

00003 

00003 

0000  J 


c 

c 

c_ 

c 

c 

c- 


IF ( ZERO.- E.  10)  GO  TO 
ST  CP  1034 


I  070 


PREMATURE  EOL  DETECTEO 


ECLI  DETECTED 


00003 
OOOOJ 
00003 
00003 
00003 
OOOOJ 
OOOOJ 
0090  3 


035  CONTINUE 

CDELPgCDsL7»L 
STATuS*4 


IF  (OTELP.LE.l  )  CONSEC*  CONSEC ♦ 1 


OOOOJ 

00003 

"00003 

OOOOJ 


O-li 


UN t. ASS  I F I ED 


UNCLASSIFIED 


IF  iv.uN:»£<_-,2  J  iJflti.iOoo.zoog 

*ri9  rurerrsn _ 


C 


00003. 

00003; 

aaonr 


1040  CONTINUE 


eeeLF»»eti»»L 

STATUS*5 

ZTTTC  103  0 - 


00003 

00003. 

00003. 

00003. 

00003. 


c 

-C_ 


..ancBi.FMS.^aaoaLE  *s 


00003 

00003 

0000.1. 


1050  STOP  1050 


00003 

00003- 

00003 

00003- 

00003* 


c 

c 


LINE  LENGT.-1  CORRECT.  EOL  DETECTED  PROPERLY;  AHITE  Out  PJt  LINE 


1060  CtTKTTNCE 

COELP*  CDELP  *L 

- WB.lTFL2.I0Tl.  JNQ.gEl  MAX.  (OTaUFC  I »  Q  T  CjQ.D-1  » .la  l.tiQl 


“00003 

00003- 

■00003 


CTLNNO*LNNOaF 
CONS  EC*1 

IfHONBfr  a»-«C«»T-RUE»- 


00003 

00003- 

■00003 

00003 

00003 


T£  MP*0  TRE F 
CT  REF*  CTC03 

CTCCO-TEMP - 

IF  (MODE. EJ. 2)  GO  TO 
GO  IQ  ...103  0 _ 


1000 


00003 

00003: 

-00003 


C 

C 


LINE  TOO  LONG  OR  NO  MATCH 


00003 
00003: 
00003 
00003: 
00003 
00003 
00003* 
0000  3 


~C~ 

c 


1070  CONTINUE 

WRITE*  .FALSE. 


LINE  SKIRT 


1080  CONTINUE 

IF< .NOT. SYNC)  G3  TO  1090 


00003 

00003 

00003 

00003 

00003 

"00003 

00003 

-00003 


c 

c 


WRITE  LAST  GOOD  LINE 


WR  ITE!  21  '  JTLNWO.PEtTHAXTrCTOUrn  .CTRFFITI  il  i'631 
SY  NC»  .  FA.  SE  • 

aa.TC4J.io - 


c 


1090  CONTINUE 


WRITC  A  -w«t  W?  UNg 

DO  1  100  1*1.  60 

- I.3TCO31*0 


WR  ITE<2>  OTL.NNO  .PEL  MAX  .(  CT8UF(  1 .  OT  COC  )  .  I  *  l  •  60  ) 

ntl  NNflal  MM-THF _ _ _ _  _____ 

IF (STATUS  .ED  .4  )  GO  TO  10  00 
SEARCH*.  TRUE. 

'  80— TO  '900 - 


00003 
0000  3 
00063 
00003 
00003 
"00003 
00003 

00003 

00003 

00003 

00003 

00003 

00003 


c 

c 

X" 


ENO  CF  MESSAGE 


2000  CONTINUE 


2010  FORMAT  (»OcND  OF  MESSAGE  DETECTED  (’.I2.*  EDL^’SI'I 

REPORT  COM  *  05  SO  ION  -  FACT  JSt  ERROR  SENSl-T  1  Vl-TV  FACTOR. OiT  ERROR  RATE 


C 

-€- 

C 


00003 

00003 

-00003 


ERRATE*FLOAT(ERRCNTJ  /FLCAT(TCDELI 

WRITE  (6.3  0301  TCP  EL’ .  TCPATA.'TSThHT.  1NLNCT.ERWATE 


00003 

00003 

-00003 

00003 

00003 


2020  F0RVAT(*0  TOTAL  NUMBER  CF  CODED  BITS  *  '.18/ 

- * - •  0  T3  TAL — NUMB  ER_CF_COD£Ol  43  AT  A  B I  T  S  _*  .16/  _ 

*  *0  TOTAL  NUMBER  CF  STUFFING  BITS  **.13/ 

*  *0  TOTAL  NUMBER  OF  INPUT  LINES  PROCESSED  =  ».I3' 

1  > - *-6 O-I T  ERROR -RAT  &-*>-«t6  14, 6-1 - 


"00003 
0000  3 
Q0G03 
00003 
00003 
OOOOJ 
00003 
00003 
"00004 
00004 

.00004 


CALL  STATS(STAT.INLNCT.DIAG) 

~CF3*F\_C<T  (  PEL MAX  KFLOAT  !  INUNCT  I/FLP  ATTTCDEL7 
CF  4*FL0AT ( PSLMA  X) AFLOAT! INLNCT) /FLOA T ( TCDATA) 


WRI TE(6«2 0301  CF3.CF4 

2030  FC  RM AT ( • 0C3  MPRE  SSI ON  FACTOR  FOR  G3  MACHINE  (CF3)  »*.F8.4/ 
- *■ . »0C  IMPRESS  ION  TACTOR  TOR  04  MACHINE  tCF4  i  **t»r0.4> 


00004 
00004 
-  00004 
00004 
00004 
‘00004 
00004 


CALL  ERRMSS  (PEL  BUF,  OT  OU  F  ,  PEL  MAX  »  VRES .  ERRCNT 1 


STOP 


UNI  _  A  SSI  F I  £D 


UU  |  Uu 


JNCLASS IFIEO 


SUBROUTINE  GETLGILBITS  , MGCE.WRD.L) 

- MW.  IC  -II  1NI&GE8  UUZJ _ _ 

LAB  SUE  0  COMMON  /G32BIT/  ♦*•**•• 

C 

- -COM  HON  >*G  3g  Of  T/MA0K(3g).  COM  A  GK  (  30  ttWHW  »UEOI  T<32) 

INTEGER  AASK.COMASK.LIBIT.LZBIT 

c 

CITRWCW/BJ  FF/PB.  aU  F(  60 . 2  J .  CDBUF(  240  J  , - 


/mi  cp  i*Sr^ncf  bin’ll  SoopnrT??  *  » 

•  CTABLSU6  )  .  CSTART<16  )  .  ST  BU  F(  I  728  )  ,  S  T  RUN  <1  728  ) 

COMMON  /Sri  AY/ERRDRSi  2500) 

€•*♦»»♦»♦♦♦♦  »♦♦»♦»»»■»»  UA  OCLL  CP— COMMON  VARIABLES  »»»»♦»»♦+♦»♦»»»♦»»»»♦♦ 

C 

_ COMMON/ W AR /PELMAX , VRES.EPHASE.CMPMAX.ERRMUD.L1NHAX ,K  _ 

•  cdelctI  inslct*.  tcdata  .tcdel  .errpnt.errcffTerrlim. 

- A - ERRC-NT  .  INI  NfT  .CflMSFr.l  NKinnF.  7CNT.  pBflHllF..  *ACK  - _ 

•  INCOD. INREF .CTCOD.CTREF.TSTFBT 
COMMON/ ICHAR/ 00. 1  I. MM, TT.NN. YY 

- eOMMEN/LOGf C/SeARCM.OI *6 »SYNC . LSS i WR ITS. CHCOU .  ONE - 

LOGICAL  3EARCH.DIAG.SYNC .LSS.MRI TE .CHCCL.CNE 

C* ****************** *********  BEGIN  PROGRAM  *************************** 


MCCE»4 

C _ 

RETRIEVE  NEXT  BIT  FROM  COBUF 

t-oo — continus - 


ENCODE  A  NEK  LINE  IF  NECESSARY 


ITO 

180 


IF(L>CCELP.LE.CDELCT  )  GO  TO  200 
..IF  1  COE LC T— C DELPHI  )  1,70  .I9Q.1BQ 


STOP  170 
CONTINUE 
■BTFBUT  <  >» 


>t  4fH3TFOUF»eOCLPiCOI-LC  T-COCLP*  1  ) 


190 


CONT  INUE 
C0ELF=32- (CCELCT-CDELP ) 

CALL  CNC3 33 - 

CONTINUE 

POLp-I  AtU  STF  aUF  ,CO£LP*L.l  I- 


2  00 


ggO 

2  40 

~?czr 

-300- 


L*LM 
IF  < PCL )22 0.300,240 

STOP  ggO - 

CONT  INUE 

IFIZCNT-I  0)310.260,34  0 

"ZCNT.O - 

GO  TO  100 

ZCNT»ZCNTM. - 


TO  3 90 


810 

320 


IF(LSS)  GO 
GO  TO  320 

CONT  INIJS - 

ZCNT»0 
CONT  INUE 

XT»*CK*L3ACKfI - 

IF  <POL  )  324.330.32S 
SI  CP  . 1 24 _ 


324 


32  S 


-2»8- 


CO NT INUE 

CALL  M  I2B  (  ^QL.  «  WRD8UF  .  LPACK  ,  1  ) 

vLH  1  l Ui. 


IF (LPACK.  LT.LBI TS)  GO  TO 
WRO  148(4  RD8U  F,  1,L  =  ACK  ) 

Tracr*! - 

RETURN 

■COM  INUE - - - 


100 


■  340 


IF(LSS)  GO 
LSSp.TRUE. 

oo  re  too 

mocc»3 

RETURN 

CgNTINLc - 

M0CE«2 
RE TURN _ 


TO  360 


360 


w 


ENO 

SUBROUTINE  2NC00G 


i 


IMPLICIT  H  TEGERI  4-Z  ) 


•  ••****  LABELEi)  cUmmJN"  /Z32B1  T/"*****  ** 


uvuv.i 

000041 

OOQOAI 

000041 

00004) 

000041 

00004) 

000041 

000041 

00004) 

-000341 

00004. 

000041 

00004. 

00004. 

000041 

00004; 

00004; 

noon*: 

00004. 

00004: 

•00084- 

00004. 

00004: 

000Q4; 

00004: 

00004. 

00004: 

00004: 

0000  4, 
00004* 
00004* 
00004* 
00004* 
00004* 
00004* 
00004- 
00004* 
00004* 
00004 
00034: 
00004 
-00304: 
00004: 
00004 
80004*. 
00004: 
00004 
CTJOUX! 
00004 
0Q004I 
00004 


00004 

■800041 

00004 

00004 

00004 

00004 

-00004. 

00004 

00004 

-00084 

00004 

00004 

00004 


00004 

■00004 


00004 

00004 

"00804 

00004 

00004 


"00004 

00394 

0000  4 


00004 

00004 

-80884 

00004 

00004 


"00004 

00004 


0-6 


UNC-ASSIFIEO 


UNCLASSIFIED 


£_ 

cowwcw  7  ..ran  t'/^wski  32  r.  comas*  t  jz  > vtn  grrTJZT.riBi  n  szi - 

INTEGER  *4  ASK  •  COMASK  (LIBIT  ,LZB  I  T 

- OPT)  OAT: 

00004S 

nnnn*. 

COPMCN/BUFF/P«L3UFt60.2 >  .CDBUFI240 ) • 

*  0TBUF(60.2)  *STFBUF<  240)  •  STATOOOO) 

00004S 

00004, 

•  CTA3i.eC  16}  .CSTART1 16) .STBUF(1723)  .STKUNCl/28) 

CCFMCN/ERAV/ERR0RST2500  > 

00004S 
00004 1. 

C 

_ fmMru/yiLes/TPay.i  pen  .Pfimi  .n-rFti  .fpfii 

“  0000  51 

OOOOSC 
nnnn  si 

C 

c< 

OOOOSC 
►  000051 

C 0MM0N n V  AR /PELMA X , VRE S . EPHA SE .C  MPMA  X .ERR POO , Li NMAK ,K 
COMMCN/Pv AR/INLNN3.0TLNN0.0TELW, INELP . CDELP • 3TLLP .CDs- W. 

OOOOSC 

OOOOSC 

*  tUtu.T.1  nellT  .TCUAta.T  Cuel«6krPNT.  EKRtiFF.  LRRL1M  • 

*  CRRCNT , INLNCT  «  CONSEC  .LNNOBF , ZCNT , WRUBUF .LPACK. 

*  iNrnn.uiopp.rTfnB.nTBFF.TMFBT 

OOOOSi 

OOOOSC 

noons 

COMMON /IC HAR/DO. I I, MM. TT.NN.TV 

COPMCN/LDGI  C/SEARCH,  DIAG.SYNC.LSS.  WRITE.  CHCJw  •  ONE 

OOOOSJ 
0000 5 

c 

INTEGER  INDEX! 16) 

000051 

00005 

c 

C _ IMITIiLtF  V1BI  iHI  _ _ _ _ _ 

»*»**  prnnnr. 

00005. 

DOflAB 

C 

CDELCT  *32 

000051 

00005. 

CC  SO  1=2  .240 

CDBUF <  n  =  o 

0000  Si 
00005. 

£_ 

57  FHOFT  11*0  - - - 

50  CONTINUE 

00005. 

00005. 

AAADF: 

C 

C 

READ  INPUT  PICTURE  FILE 

00005. 

00005. 

REACH  ,  £M  C=  1 20  •  ERR=500  ) 

*  INLNMO.I  NcLC  T.(PSLBUF<  I  ,  I  NC  CO  )  ,1*1  ,60) 

00005. 
0 0005. 

IF  ihGUu NLMnq ,  iTJOl  . EQ  % 0 1~WR  ITET{  6, 110 1  TNLNFTO - 

110  FORMAT  (•  INPUT  LINE  NO.  **.I6) 

iFiMnoiiMi  MNO-i.«F<;».w:.oi  fin  Tr  ion 

oooos: 

00005. 

nnnnF 

IF(  INeLCT  .LT.PELMAX  )  CALL  EXIT 

INLNCTsI MLMCT* l 

00005 

00005. 

c 

c 

LOAD  OUTPUT  LINE  NUMBER  BUFFER 

00005 

00005. 

c~ 

LNKCSF  NO 

IF  <  SEARCH  )  3  TLNNO*LNNOBF 

00003 
00005 
n  onn«. 

c 

IF (INLNNJ.LE.LINMAX )  GO  TO  140 

0000  5 
00005- 

c 

120  CONT  INUS 

00005- 

00005- 

XT 

IF  tINL~NCT  TsiriO)  STOP  " 

CO  130  1=1.6 

T=0 

- 00005 

00005' 
nnnn s 

CALL  C03£G(  67, T .CDELCT  .CDDATA  ) 

130  CONT INUE 

OOOOS- 

00005'. 

STFBUF  (  I  )=CDBUF(  I  ) 

135  CONTINUE 

- 00005 

00005: 
0000  5 

c 

x_ 

GO  TO'  400  ~ 

FIRST  CF  K  L1NFS7 

OOOOS 

00005 

OOOOS 

c 

140  CONTINUE 

000  05: 
00005: 

c 

c 

ONE-OI  PENSI  CNAL  COOING 

00005; 

OOOOS- 

TT 

C 

t*c 

OOOO&t 

QQOn<\. 

c 

CALL  CODE G( 67, T. CDELCT, CDDATA) 

00005; 

00005- 

c 

c 

TEST  C CL CR  OF  FIRST  ELEMENT 

- 60005- 

00005- 

00005 

~r 

tF<I4fl (PiLBUFC 1 . II1C0D) . 1. 1  ).EQ.O)  GO  TO  ISO 

0000  5 

0-7 


UNCLASS  IFIED 


UNC.ASSXFIEO 


~rr 

c 

r 

first  a.e«t!Nr  black i  encode  o- length  white 

RUN 

- D0UU5' 

0000  5' 
aoooB 

CALL  GC03LR(0,  1,  COELCT  .CODA  TA  ) 

POLAR-2 

00005. 

00005 

c 

c 

CALCULATE  RUN  LENGTH  AND  ENCODE 

00005 

00005 

150  tONTTNW  " 

HU  K»0 

nn  iflfl  r0ft  Mix  . 

OOD05t 

00005i 

aaoas 

PEL*  I4B(ae_8UF(  1  .  INCOD  )  •  I  .  1  >  +  1 

IF (PEL .EG .POLAR)  GO  TO  ISO 

00005< 
0000  5 

IF ( .NOT. J I AG)  GO  TO  170 

WRI TEI 0.1 60)  RUN .POLAR .COELCT .CDCAT A 

00005. 

00005 

160  FORMAT r»ra) 

170  CONTINUE 

BllMs  1 

00005' 
0000  5 
06005- 

POLAR*  ROD  (POL  ARF2.  2)M 

GO  TC  20 J 

00005' 

00005 

RUKsRUN+l 

200  CONTINUE 

0000  5 
00005' 

CALL  (.LJDlr  (run.  PJLAR . cDfcLu i  .luDAYa) 

IF  (  .NOT.  J  I  AG)  GJ  TO  210 

WRITFf  A.  1  Kill  RllN.PDL  AR  .COELC  T.fQDAT* 

00005 

00005 

c 

GO  TO  210 

00005* 

00006- 

c 

600  continue 

00006 

00006. 

r 

c 

r 

WRI  TE  CNe  C.CL2 

OdOo&i 

00006. 

T*0 

CALL  CODiG(  ea.T, COELCT, CDDATA) 

00006 

000061 

c 

c 

INITIALIZE  ARRAY  POINTERS 

00006 

00006 

J*l 

DO  610  I*  1.  16 

|wpE*  (  i }«  <j 

00006 

OOOOo 

01  0  CONTINUE 

00  700  1*1.  PEL  HA  X 

00006 

0000b 

■f" 

c 

C 

PREDICT  NEXT  ELEMENT 

0000b 

00006 

X f ( I *1  )  61 1  »612  »61 3 

61 1  STOP  6  11 

A12  CpKTlMlF  _  _  _  _ 

00006 

00006. 

QQQQh 

PEL  1*1  431  P£L0UF(  1  •  I NREF)  .1,2) 

PEL2*0 

00006. 

00006. 

CO  TO  615 

613  CONTINUE 

00036. 

00006 

PE L 1 * I 48 ( PEL  BU F (  I  « INRcF). 1-1,3) 
ftn  uti»<asi  t  -asi  » 

00006 

0000b. 

—00006. 

615  CONT  INUE 

5PI*PEL2«- I 

00006. 

00006 

c 

IF(JS-l)  620 .630.630 

00006 

00006 

~c 

c 

-  A  SYAtt  fU  YA3LE:  ~ 

05035. 

00006 

nflflfl/i 

ST  6UF  (  J  )*  SP  1 

STRUN( J)* l 

00006. 

OOOOo 

JS*J 

J*  J*’  1 

00006 

00006- 

630  CQNt INUE 

IF  (PREDCT  (SP1  ).E0.  I4B(PELBUF(1  .INCOD).  I. 
mcp»i  Bi.iin  _  ...  .  . 

t))Gu  TO  650 

05006 

00006 

00306 

GO  TC  700 

650  CONTINUE 

00006 

00006- 

JC 

700  CONTINUE 

00006! 

00006! 

c 

c 

tdNiffcuCt  CfliE  LInS 

O6006 

0000b: 

0-8 


UNCLASSIFIED 


UNC-ASSIFIED 


■jwmnrm - 

CO  300  J*  l  •  JM  AX 

■atuAifluEi  jj. 


CALL  C00£G(STRUM( J  > *CT ABLE( SP  1  ) .COELC T .CODA TA) 
IF (.NOT. JIAO)  00  TO  800 


c 

c_ 

c 


WHITE! 6.  I  60  )  STRUM ( J ) . S . COEL  CT  »  COOAT  A 
000  CONTINUE 

210"  CONrWTTS - * - 


switch  nn«  e.  rfffr fnt f  lines 


TEMP*I  NRIF 
INRgP* 


c 

TT 

C 


■  IMCOO" 
INC00*TS4P 


"BIT  5TUFFIST3- TTfTSlinT  0NE5TJ - 

CALI  ST1IFF1  tfnfltlir.<iTrmiF.STFRIT.CnELCTl 


c 

C 


SAVE  LINE  wEMOTH  (DATA  4  EOL) 


c 

XT 

c 


STAT ( I  M..M  CT ) »CDDAT  A+COCS ( 1 .68.1  I 

CHECK  CPC*  X  CYHS  UENOTH - 

>£LCT-3?.I - 


.FILL  AX--.1  COa.  C. 


c 

«- 


IF  (FILL)  40  0. *00.250 


COPE  LINE  TOO  SHORT  t  FILL  IT  *0  CMPRAW- 


250  CONTINUE 

COEL  CT  *CD  ELCT  »F  ILL 


ACCUMULATE  STATISTICS  AND  ERROR  CORRUPT 


400  CONTINLE 

IFiERRMOO .EO.NN)  GO  TO  390 


ERROR  CORRUPT 


350  C0KTINU5 - 

ERRBIT»SRR3RS(ERRPMT)-ERROFF“TCOEL 
sa  to  j&o 


c 

e- 

c 


IF (CRRBI T.GT.CDELCT-32 )  GC  TC  390 
■ERROR  »H  *»W5  CP  eOOgP  ttNCt  CHANGE  '  APPROPRIAT L'OIT- 


eiT»  I4  0(>TFPUF,  ERRS  IT  432.  I  ) 
TTTT.MOOI  JTT4I  .21 


CALL  M  120 (BIT, STFBUF. ERRBIT432.  1) 
-E-RRCNT  -«g»l-ftCNI  *1 - 


INCREMENT  i RROR  LIST  POINTER 


000061 

00006! 

OOflQft. 


00006: 

00006 

00006! 


00006i 

00006< 

-ooooo> 


00006 

QOOQ61 


00006 

00006' 

00006" 


00006 

00006> 

OOOOO 


00006 

oooa& 


00006 

00006 

00006 


00006 
00006 
0000  6 


00006 

00006, 


00006 

00006 

06666' 


00006 

00006 

TTOOCET 


00006 

00006 


00006. 

00006 

00666 


00006 

00336 

■OOffDB 


00006 

nnnn>. 


00006 

03336 

00006 


00007 

00007 

~oooa7 


00007 

QOOQ7 


00007 
0000  7 


-e- 

360 

CONTINUE 

ERRFNT  »SRRPNT4l 

. . . 00007 

00007 

00007 

c 

C 

iFTEkrPN r.LE.EHRLIMJ  30  TO  350 

ERROR  LI  ST  -XHAUST^O 

00007 

00007 

c 

ERRFNT  *Erl RPNT-I 

00307 
0000  7 

370 

0 

FORMAT  (*J  ERROR  LIST  EXHAUSTED  AT'.IIC.’TH  iRRURJ*/ 

•  LAST  ERROR  OCCURRED  AT*. MO.'  BITS*) 

00007 

00007 

c 

_c 

Cr 

ERRMOOhN'J 

ihoi  ic  CTATI$TICS 

00307 
0000  7 
00007 

c 

390 

CONTINUE  » 

00007 

00007 

TCCAT  A»T C  0 AT A4CDCATA 

TSTFBT«TSTF9T*STF0IT 

00007 
0000  7 

c 

7FTCTJTC1  rfRITEfS.ISOJ  lHENCr,  CDOATA 

if  i.Mni.,iiiai  tin  in  A«sn _ _ _ _ 

00007 
00007 
_ QQQjQJ 

CDELW*  (CD ELCT  432-1  )/32 

WRITE ( 6,4  50 )  (CDOUF(I) .1*1 .CDELW) 

00007 

00007 

450 

FORMAT (6212 ) 

WRITS! 6*443)  STFBIT 

00007 

00007 

460 

'FOWATTId  ,  f  "ONES  IMSERTEDTl 

CONTINUE 

00007 

00007 

0-9 


JNC_ ASSI FI ED 


c 

- TCTUWI - 

•  Aft  fnUIINIF  _ 

000072 
0000  7; 
aoam: 

c 

CALL  EXIT 

00007; 
0000  7< 

c 

SUBROUTINE  COOEG(LEN.T  ABLE. CDELCT  .  CDDATA  ) 

00007c 
0000  7* 

IWTt  Ic  IT  IN  T1TGES  { A- 7  ) 

CO FMCN/SU FF/ P EL SU F 1 6 0 , 2 ) . COBU F ( 2 40  » . 

•  ntniFiAQ.ji  .sTFsiif  (jtni  .  sriTmjoi 

0051(71 

00007^ 

nnnn7i 

C0MMCN/HJFF/C00E(3*92.  2).C00S(  3.  68.  6  )  .  PREDC  T(  16)  .Nf>N:0(16l  » 

•  CTABLS0  6)  .CST  ART  (16  >  ,S T BUF C  1 728  )  .  S T RUN (  1  728  ) 

00007* 
0000  7* 

c 

LCC1CAL  PREFIX 

0000  7! 
00007! 

LaLFN 


T-TABL  E 

PREFIX».F  ALSE. 
»p«e  >  ii60»f  a 
ST  CP  i 
CONTINUE 


00007: 

QQQQ7'- 


00007: 

00007: 


0000  7 
00037'. 


to 

IF(C.CS.55".  AND^T.XE."3)  ~C0  TO  “TOD - 

IF1L.GS.33.  AND.T.GE.3)  GC  TO  SOO 

fflNT  INI!* 

000071 

00007* 

00007. 

CALL  MI2B (COOS (3. L. T) , CCBUF . CDELCT 4l  .CCDS (1. L. T )> 

coelct*cdelctk:oos(  l.L.T) 

00007 

003071 

CDOATAaCJDA  TA4C00S<  1  *L  .  T) 

IF (.NOT. PREFIX)  RETURN 

00007* 

00007. 

Call  MI2a  (LENGTH  .CCBuf  .“CdeLCY  41 .11 i 

CDELCT  *CJEL  CT  A  l  1 

o00o7. 

00007: 

00007 

too 

RE  TURN 

CO  NT  IN  US 

00007 

00037 

IF  (T. EG.  2)  GO  TO  110 

LEAGTH*L 

00007 

00007 

La  66 

PREF  IX*  .TRUE  . 
r.n  rr  in 

0DDD7 

00007 

00007 

110 

CONTINUE 

lekgth*l 

00007 

00007 

1»  ^  ^  “ 

PREFIX*. TRJS. 

GO  TO  10 

001107 
00307 
0000  7 

TZir 

COTlTTNtS - - - 

L*  65 

rfn  rr  in  .  . 

00007 
noon  7 

500 

CONTINUE 

lekgth*l 

00007 

00007 

PREF  IX*. TRUE. 

GO  TC  10 

00007 

00007 

r" 

c 

c 

WRITE  EOL 

O00O  7 
00007 
_ 00007 

600 

CONT  INUE 

T*1 

00007 
0000  7 

E  N  C 

SUBROUTINE  CNEGERl INDEX .COLOR »ST ATUS • L ) 

WWW  v  7 

00007 

00007 

IMR.ICIT  IN  TEGER  TA-ZJ 

C****»*»  LABELED  COMMON  / 532 0 IT /  4444444 

c _ : _ . _ 

ococs 

00006 

noons 

COMMON  /G J2BIT/MAS< ( 32) .CGMASM 32) >LIBIT(32) .L2B1 T( J2> 

INTEGER  4  ASK.  COMASK.  LI  BIT .  LZOIT 

00008 

00008 

COWMCN/BJ  FF/PEL 3UF(  60.2). CDBUF(  240  ). 

4  0TBUF160.2  )  .STFBUF  (2  40  )  •  ST  AT  (3)33) 

00008 

00008 

cOMmOSJ^WJ FFVcuOci  j.9  2.2).ctJ0S(3.ca.e)  .pREul  It  16)  .nrn:j()6)  * 

4  CTASLEt 16) . CST  ART (16 ) , ST8UF(  1729  ).ST RUN (1728) 

0003  3 

ooooe 

nnnns 

c* 

c 

**• 

00006 

00008 

c 

Cl 

>4*4 

00006 
4  00003 

tr 

COFMCN/I VAR/PSLM AX .VRSS.EPHASS .CMPM AX, ERRMOO.L INMAX. K 

00003 

0000b 

q_10  UNCLASSIFIED 

IN  OEX*  O  DE(  2.  INDEX. COL  OP  ) 


IF(COOE< 1. INDEX. COLOR) .EQ.LEN0I T>  GO  TO  1040 


i|i|  l  M  TI  IIli'  l  IfJ.iif 


MATCl-  FCUNJ 


I  100  CONT  INUS 

CDELP=C0= L^*L 


NCT  AN  PCX. 


TEST  FOR  MAKE  UP  OR  T  ER  1 1N AT ING  COCE 


KUNLEN=M32X-  1 

IFIINDEX. G5.65)  RJNLE.N* (INDEX -64  )»64 
IF  (CCLCR.  EJ.I  >  GO  TO  1155 


II  Jf  H  (<Iil 


A00  SLACK  RUN  TO  OUTPUT  eUFFER 


DC  I  150  I  =1  .RUNLEN 

CALL  MI28(CCL0R-1.0T9UF<  1  .CTCCO)  .CTELP.l  ) 


u  :ur2u  iU'ti 

IF  (  C TE  L-*— 1  •  GT.  PEL-MAX  )  GO  TC  1180 


■L’ll COI 


GC  TC  1160 


1  155  CONTINUE 


144-t  A£1>|  FI  I  *Pv*  I 


IF(OTELP-l.GT.PELMAX)  GC  TO  1180 

JC _ _ _ _ ' _ 

C  OUTPUT  LINE  LESS  THAN  OR  EQUAL  TO  MAX  SPECIFIED 
C 


IF  (INOEX.LT  .65)  GO  TO  1170 
INDEX*  2 

- crmriaao - 


1  170  CONTINUE 


STATES*! 
_ RETURN 


RUN  ADDED  UNTIL  PELMAX  EXCEEDEO)  LINE  TCC  LONG  (21 


00008* 

00008* 


00006* 
0000  8< 


000081 


00009*. 
0000  8 


00008: 

00008 


00008* 

00008* 


00006' 
0000  8 


00008 
00008 
00008 
000  06 


00008 

00008 


0000  8 
00006 


vvuuo 

00008 


0000  8 
00006 


00008 

00006 


UUU  wo 
00006 
-00008 
0000  8 
00008 


00008 

ooooe 

^OOTTOB 

00008 

-00008 

ooooa 

00003 


00006 

00003 

00008 


unclassified 


t  ISO  CONTINUE 

mama. 


I4SS  FORMAT (62 10 ) 
3TATLS-2 


>HE<6.taas)  iUBUEU  .crcrn)  on  ,&oj 


oootroo 

000090 

000090 


c 

c 

~c~ 


91C9URN-' 


NO  MATCH  FJUNO  IN  CODE  TABLE  <31 


000090 

000090 

000090 

000090 

000090 


1190  CONTINUE 
_ ST  ATtlS«3. 


-4*- 


RETURN 

-eetrt-  oereef-go  <6» 


000090 

00009C 

ooooai 


1200  CONTINUE 

- ^-yriTUsar 

return 


000091 

000091 

000091 

000091 

000091 


c 

c 


E0L2  DETECTED  C5> 


oooOvi 

000091 

000QS.1 


l-EOS  CONT  INUC 
STATUSES 
RETURN 


C*i 

C 


■'E'  w  e 

SUBROUTINE  TWOGERC 1 NOEX tCCLCR .STATUS . L ) 
IMF!  IC IT  INTEGER  CA=rZ  l 


000091 

000092 

000092 

000092 

000092 


LABELED  COMMON  /G32BIT/  ******* 


000092 

00009. 

000092 


CCMMCN  nAaDE  LHT/-MACi~K-«  3g  » rCOMASKC  3B>  it-tH  IT  C-3«i >  r.-ai  T<  Jiti- 
INTEGER  NA5K.COMASK.L1BI  T.LZBI  T 


COFMCN'/BJ'FF/PiiL'BUFTftO.  21  iCDBUFCZAO  f. - 

*  OTBUFC  60,2  1.STF3UFC  240)  .  STAT(3000) 

CCMMCNZHllFF  / CODE!  T.  .9?  «  ?  1  « COOS  1  -5.  fcR.  fc.1  .  PREDLT  1  Ibl.NPKiLH  61. 


000092 

000092 

000092 

00009: 

00009: 


«N 

c 


•  C  TABLE (16)  ,C START! 161. STBUF  <1723) .ST  RUNC  1 728) 

CCFMCN/ER AY/ERRDRSC 2500 » 

>»***»»»»♦*»»»»»»♦♦»-  riLC  OCriNlTlCNS  *»**»♦»»»»»»♦+»»♦»♦♦ 


00009- 

00009: 

OOOQ9: 


r 

c« 

c_ 


COFMCN/F 1 LS3/TERM.LPFIL.PELF IL. 0TF1L . ERF XL 


00009: 

00009: 

00009: 

00009: 

00009: 


LABELLED  COMMON  VARIABLES  ********************** 


COMMON  /IVAR/PELMAK,  VRES.EPHASE.CMPMAX  .ERRFOO  ,Ll  NMAK  ,K 
COMMCN/PV  AR/IN_NM3.uTLNNO.OTELW. INELP , CDELR. 3 TiLP . LDi - W. 


TJD009- 
0000  9* 
00009- 


00009* 

00009* 


COCLCTy1NELCT»TC&ATAiTCOEL(ERR»*NT»  CRRuTF»ERR=-IM> - 00009* 

ERRCNT.  INLNCT.CONSEC  .LNNOOF  .  ZC.N  T  ,  »(2  JdUF  .LPACK,  00009* 

INCOD.  INREF.  CTCOO.OTREF.TSTFBT _ 00009 


im.uu.  jNKcr.ui.uu.1 

COMMON  7IC  HAR/DD.  I  T~.  MM  ,  TT7NN',  YV  • 

COFMCN/L JGI C/SEARCH, DI AG. SYNC.  LSS.  WRITE.  CHCDi..  jNfe 
LOG!  CAL... SEARCH  .PI  AG.  SYNC.  I  SS.  *KI  TE  ,-CHCCL  »f.NE _ 


C 

€♦< 

C 

C 

z~ 


INTEGER  3TCNTC 16) 


3 CO  IN  PROGRAM 


OooOO- 

00009* 

00009. 

00009' 

00009 

KH>069' 


INITIALIZE 


00009 

00009 


00  100  1*1.16 
■STCNTIXUO - 


C 

C 

T 


too  CONTINUE 

- 6O--Y00-0-  »»1  fPELMAK- 


"00009 

00009 

00009 


FINO  STATE  OF  NEXT  PREDICTED  PEL 


00009 

00009 

-00009 

00009 

00009 


IF  <P— I )  611  ,612.613 
611  ..STOP  611 


612  CONTINUE 

PEL  1*1  ABC  OTBUFC  l.DTREF)  .P.2) 


"DDDTT5 

00009 

00009 


PEL-E-O" 

CALL  MI23 (PEL1  .PEL2 ,32-2 .2) 
GO  TO  615 

~grr  CONTINUE - - - 


00009 

00009 

WWW  V  T 

00009 

00009 


PEC2*I  ABC  OTBUFC  l.DTCOD)  .P-1  ,1  ) 
■PFL I » I AFW  3TBIIFC1  .qTRFF)»g-l.  31 


CALL  MI23  CP5L1 ,P£L2 ,32—3 ,3 ) 
61 S  CONTINUE 

- ■■JPl-PEtgft - 


000  CTO 
00009 
00009 


99  t-q--u5s 


INCEXsCST  ARTC  SPl  ) 


00009 

00009 

-60009 

00009 

00009 

“00005 

00009 


0>12 


UNCLASSIFIED 


UNCLASSIFIED 


t - 

C  BEGIN  OEC3DE  LOOP:  RETRIEVE  NEXT  CCDE 

r _ _ _ _ _ _ _ _ _ . _ 

WORD  LENGTH  (L) 

- 0000' 

00009 

nnnna 

I  000 

CONTINUE 

L«  0 

00009 

00009 

1002 

LPACKa  0 

LENR  IT  -CD  OS  <  1  .  I  NOE  X  .  T  1 

00009 

00009 

i  nnx 

CATL  UETLGI LEnBit • MdDE.L BITS .L  J 

IF  (  0 1  AG)  WRITE!  6*1003)  LENBIT.HOOE. 

FORMAT  WIA.  71?.  14  1 

LBITS.L 

00009 

00009 

nnnno 

GO  TO  (1040.1200*1205.1190).  MODE 
STOP  1  040 

00009 

00009 

C 

1F(LBI  TS.EQ.CODSO.  INDEX.  T)  )  GO  TO 

1  1  00 

00009 

00009 

C  NO  VATCH ;  ADVANCE  CODE  WORD  INDEX  VIA 

C 

_ INCFXam  ■  T  1 _ 

DECODE  THREAD 

00009 
00009 
non  i  a 

IF(  INDEX.  GE.67.AN0.  T.EQ.  1  )  GO  TC  1190 

IF(  INOEX.  3E.66.AN0.T.SQ.2)  GO  TO  1190 

00010 
0001  0 

c 

IF(COOS< 1 . INDEX. T) .EQ.LENBIT)  GO  TO 

1  040 

00010 

OOOIO 

C  CCDE  WORD  LUNGER.  FROM  THE  TCP 

C 

an  rr  ia.i? . 

00010 
0001  0 
flflfli  n 

c 

C  MATCF  FOUNO 

00010 

00010 

'"l  100 

CO NT INUE 

COELP=CDE LP4L 

00010 

00010 

C 

C  NOT  AN  EOL 

c _  _  _ 

- OOOTO 

OOOIO 
non  i  n 

RUN=  IN  CSX 

GC  TC  (11  10  .1 120.1 130. 1 130. 1 130*  1130) .T 

00010 

OOOIO 

c 

c 

1*2  3  4  5  6 

00010 
000 1C 

,1110 

ST  CP  1100 

CONT INUS 

IF  (  INDFX.F3.A41  fifl  TO  LIAO 

oOoio 
ooo  ic 
non  in 

IF (  INDEX. £3 .65)  RUN=PELMAXF  1 

GO  TC  1150 

0001  c 
0001  c 

IF  (INDEX.  EQ  .65  )  GO  TO  1140 

GO  TO  115  0 

000 1C 
000  1C 

i  130 

CONT INUS 

IF (INOEX. ED. 33)  GO  TO  1140 
on  to  n  -in 

- 0001 c 

000 1C 
no  3  i  o 

1  140 

CONT  INUE 

L3  0 

000  It 
OOO  1  c 

LPACKaC 

L  ENB  IT® l 1 

oootc 

oooic 

CA  LL  G  E I L  Gl lEnB 1 T • wo DC .L0ITS.L ) 
IF(DIAG)  WRITE! 6.1003)  LENBI T .MODE  * 
an  in  tn  44.  ipqq.  i  pqs.  i  mni.xnng 

LBITS.L 

- OUOTt 

OOO  It 
OOOl  f 

1  145 

STOP  1 145 

CONT  IN  UE 

OOO  ic 
OOOIC 

1  150 

RUN=  LB  I  T  5 

CONT INUE 

OOO  It 
OOOIC 

1  155 

StCNTI  5PI  I  a  RUN 

CONT  INUE 

_XE_ISTCNT  t  SP1 1-1 1  1 190 . 1160.  1  165 

- DOTH  i 

OOOlt 

QQQLt 

C 

C  INCORRECT  PREDICTION 

OOO  1C 
OOOIC 

~1  160 

CONTINUE 

IF (NPR€3(SPt ) )  1161. 1163, 1162 

OOOIC 

OOOIC 

nsi 

1  162 

1  »A1 

STOP  1161 

CALL  M  I2J ( I ,OTBUF(  1 .OTCOD ) .OTELP . I ) 
STCNTI  SOI  1  wtl 

000  1C 

oooic 
nooi . 

c 

GO  TO  1170 

OOOlt 
OOO  1 

c 

1  165 

CONTINUE 

OOOlt 

OOOlt 

I  167 

IF  C  Pftfc  [K  T  (  LI )  Il6l  1 1 1  66 1 1 1  67 

CALL  M  I2d  (ltOT9UF(  1  tOTCOO  It  OTELP  t  1  1 

OOO  Tt 
OOOIC 

0-13 


UNC. ASSIF1ED 


UNCLASSIFIED 


-VV6B  STCKTt^Pl  )  *STCWri5Pl  J-"I 

1  170  0TELP*0T2L P+  I 

traa  rnNriNin  .  —  - 

ooo  rot 
000106 
000X06 

IF (0  I AG)  *RI TE<6 .1 1 85)  < CTBUFI I . CT COD  }  . 1*1 . 60 1 
t  189  FORMAT  <6Z  10  ) 

000106 

000106 

C 

c 

CHECK  FOR  5  RRORS 

000  107 
0001 07 

-  00  TTTy  1-1 ,|B 

IFISTCNT1  I)  .NE.O.AND.STCNTt  I  ).NE.  I)  GO  TO  1(90 
t  «  r n nt  tmii* 

OOOI 07 
000107 
000X07 

STATUS* l 

CETU  BN 

000107 
0001 07 
, — a«M»*07 

c 

c 

NO  MATCH  FOUND  IN  CODE  TABLE  (3) 

000107 
0001 07 

— n 

90  ST  ATUS^J 

OF  Til  CM  .  - 

000 I  OB 
oooi oe 

_QQ010l: 

c 

c 

ECLl  DETECT  EO  (*) 

000108 
oooiot 
— ooo 

-e— - — - 

1200  CONTINUE 

STATUS** 

oooi OE 
0001 0 t 

c 

r 

- RETURN - — 

Fm?  nFTFrf'1^ 

000 106 
0001 OE 
QO010> 

c 

1205  CONTINUE 

oooio; 
0001  O', 

00  Q  | 

- — — - — — — — — — - - - 

RETU BN 

E  N  0 

oooi  o'; 
00010' 

C 

- 5U  SR  OU  T I  >1  F"13Ca  DLR ( L  E  N  3TNTP0L  A  R  #CDt  LCT\  C  DO  AT  AT 

fuel  fr  !T  rMTF-lFDl4.7l  - 

OOo  ITT? 
OOOI OS 
■  OOO IQS 

COMMON/RJ  FF/PELR JF  (  60.2)  .CDBUF<  2*0). 

»  0TBUF(60»2 ). STFBUF (2*0 ) .  STAT(JQOO) 

ua*a  -  ^  *  *-  > - - - 

oooi  os 

0001 It 

•  CTABLEl  16 ) .CST ART ( 16).STBUF{  1  728 ) . S THUN (  1728) 

COMMON /ERAY/ERRORS(  2500) 

0001  It 

OOO  1  u 

c*< 

000X1  c 
>  OOO 1 1 v 
000 IX i 

c 

c 

INITIALIZE  make  UP  CODE.  MAKE  UP  CODE  LENGTH 

OOO  1  1  i 
OOO  1  u 

c 

NCOfiC^ 0 

NLENG*0 

0001 1 1 
OOOI  1  1 

c 

CHECK  INPUT'S - 

TPiarn  ad  .  i  T-i  .AD.jm  iD.r.T.71  r»i  l  F»!T 

0001  1  i 
OOO  1  1 

_  ooauu 

c 

IFILENGTH.LT. 0. OR. LENGTH. GT. 1723)  CALL  EXIT 

0001  1 
oooi  I  : 

c 

c 

CALCULATE  MAKE  UP  CODE  INOEX.  CODE.  LENGTH 

OOO  1  1 
OOO  1  1 

7T~ 

c 

— km  write-  rr  cose  ltm^ — 

JMpPtf*!  Ciaw/AA*AA  __ 

OOO  i  1 . 
0001 1. 
000X1 . 

MC0DE*C33i(  3, INDEX. POLAR) 

ML  ENG* CODE!  1.  INDEX.  POL  AR  ) 

OOO  1  1. 
OOO 1 1 . 

CDELCT*CDELCT*MLENG 

CDCATA*Cj3AT AXMLENG 

0001  l. 
0001  1  . 

c~ 

c 

CALCULATE  TERMINATING  CODE  INDEX*  CODE  •  LENGTH 

AMO  APft  TV  rnr%ff  l  lMf*  _  __ 

O00T1 
0001  1. 
00  OIL 

c 

10  CONTINUE 

00  0  1  1 
0001  1 

TCO0E*C3JE(  3,  INDEX. POLAR) 

TLENG*C0J£(1,  INOEX,  POLAR  ) 

OOO  l  l. 
0001  1 

- CALL  ^123  (  TC002.COBUr.CJtT.CTAl  ,  ICE  NCI 

COELCT  *C JEL CTxTLENG 

fAAltirflAili.n  FMfl 

OOO  fT 
0001  1 
_ 00011 

~ 

BETUBN 

0001  1 
OOO  1  1 

SUBROUTINE  STUFF  l<  CDBUF,  STFBUF  ,  STFP  I  T.CDELC  T) 
IMPLICIT  INTEGER(A-Z) 

0001  1 
0001  1 

- 01MSNS13-4  CWOFISAO)  ,3TPBuF(2*0> 

OOO  1 1 
OOOI  1 

0-11* 

JNC-ASS IFIED 

r.  .  . .  -  -  — 

— 

UNCLASSIFIED 


c 

COMMON  /G 3281 T/MASK( 32 >. COMA SK( 321  .LI8lr(321  .LZBITI42I 
t  htr  t>  elm  a  (ikk.mmkk.i  mitt.i  xiit 

"WTOTP 
OOOllt 
AAAI  1  t 

c 

c 

00011' 
0001  IS 

c 

00  50  1*2,240 

000  1  1! 
OOOllt 

90 

STFHUFTTTST  ~  - - 

CONTINUE 

nfNT*ft 

"ooot  n 
oooi  u 

non  ■  i  •• 

I*  32a l  ♦!  3 

J»  I 

000  1 1* 
0001 11 

c 

c 

PICK  UP  OL 

•00 1 1  ■ 

0001  It 
0001 1 c 

c 

LSS*  I  48(COSUP(  2)  •  t  .  131 

fAII  M  ra-4  (1  «TFA1IF<  7  1  T  1  T  1 

0001 1< 
0001  It 
AAAI  1  < 

l  00 

CONTINUE 

POLs  I48ICD8UF.  I.  i  ) 

0001  It 
OOOllt 

L 1CNT=  L 1CNT ♦  1 

GO  TO  ISO 

0001  It 

0001 1 t 

1  10 

CUN  Tines  ■  '  - - 

L  I  CNT=0 

CA1I  MTXlfP-J  .STF  VlF.-l.l  1 

000  i  \ 
0001  1 
nnm  ■ 

150 

CONTINUE 

I*  I  ♦  I 

oooi  i; 
ooo  i  i: 

IF(L  ICMT  ,L£  .9  )  GO  TO  200 

CALL  MI2d  (l  .STFJUF,  J.  1  ) 

00  01 1 
0001  1 

c _ 

ctcttt=u  ~  ■ — : — 

J=  J>1 

~ooon- 
00011 
non  i  i 

c 

c 

TEST  IF  FINISHED 

OOOlli 
0001  1 

IF ( I .L =.C OELCT  )  GD  TO  100 

STFOI  T  =  J-  i-COELCT 

00011. 
0001  I 

CSELCT=J-  1  ~ 

RE  TURN 

_ EMO _ 

“0001  I 
0001 1 
nnn  i  i 

c 

BL  CCK  OAT  A 

00011 
0001  1 

c*  ***  *** ********* *******  FILE  DEFINIT IONS  **** ♦**♦♦***♦**♦*** * 

0001  l 

c 

000  1  l 

c 

COMMON /FTCc T/TErM ,LPF  IL  . PELF  I L » 0  TF  rCYEKFTC 

“OOOTT 
0001  1 
non  |  | 

*  OTBUFI60.2 j.STFOUFI 240 ) .  STAT(dOOO) 

COMMON  /H\JFS  /CQOS(  3  .92  .2)  ,CCDS(3  .68 .6  )  .FREOCT  (lb  )  .NPREOC  16  ), 

0001  1 
0001  t 

c*** 

CCWMCM/ER  AY/HRR3RS  (2500  ) 

■000  1  I 
00012 
00012 

c 

coymcn/i var/pelmax .vres.ephase.cmpmax.errmod.l 1NMAX.K 

COMMON  S?V  A3  ,/JN'  MM"1  .  T  T  L  MNO-OTFI  K.lNFLP.OSELP.JTtLP.f  ;VLX. 

“000T2 

00012 

000  17 

*  CDELCT , . n  LCT.TCCATA.TCCEL.SRRPNT.cRKbFF.ERRLIM. 

*  ERRCNT.;N^  >C  T  fCONSEC  .  LNNCBF  .  2CNT  »  aRDBUF  »  LP  ACK. 

00012 

00012 

COMMON/ICHAR/DD.I  I  .MM.TT.NN.YY 

COMMON/LD  GI C/ SEARCH. 0 1 AG  »  SYNC .LSS. WR I TE .CHCQL.ONc 

■000 1  £ 
000  12 
00012 

c 

L CGI  Cal  i  CA«ICH,^1AG» SY Nc t  LSSfWrtlTE* ChCO L » ONE 

“0TT0T2 
00012 
OOOI  7 

DATA  NPRHU  /I  •  0 . 1  ,  0  •  t  •  0  .0  .0  1 1  .1  •  I  •  0  •  I  .0 . 1  .0/ 

CAT A  CTA3LE/ I. 3. 4. 6*6. t,  E, 6, 6. 5.6. 6,6, 4. 3. 2/ 

00012 

00012 

c 

DATA  T  cR-ULPFIL.PiLFIL.OTFIL  .ERFIL/5.  E.  1,2.  3/ 

00012 

00012 

DATA  DJ|  1  I  .MX.TT.W.YY/'  D'  .  •  I  »  •  '  V’  ,•  T*  N*  Y>  / 000X2 

DATA  PHAX  ,VRES.  SPHAS  E.  CMPM  A  X,  ERR  MOD  .LI  NMAX/ 1  72  a  .2  .  0  .  96  .  •  T  •  .3000/00012 
_ data  <  t? /  non i  .•> 

C 

CATA  OIAG/.FALSc  •/ 

00012 

00012 

DATA  CO  J  S(  t  •  2,  l  )  «  CO  DE(  2*  2.1).C0DE(3,  2.  11/  0,  90.20007/ 

DATA  CODcU.  3,1)  .C  ODE  ( 2  .  3.1).CCDE(3.  3.*)/  4.  4.Z0007/ 

“OOO  1  2 
00012 
00012 

DAf  A  c3  J -(  1  •  4,  l  )  *ii30c  {  4t  l)  3«  )  /  4#  o#2000B/ 

OATA  CO^tU.  5  #  1  )  *  CODE  (2  •  5.1>*C0DE<3,  5*11/  4*  6%2000B/ 

"500X2 

00012 

0-15 


UNCLASSIFIED 


UNCLASSIFIED 


wmrcojEi  i . — a  m  .code rz . 

OATA  ODEC  ».  7.U,C00et2. 

n  at  a  rrv>p  1 1  -  8.1  )  .rnnpf?. 

DATA  03E(  1.  9*1)  .COCE  (  2  . 

DATA  CODED.  10. 1  ),CQD£C2, 


7*1) .CODEC  3*  7.11/  A.  8.Z000E/ 

—a. i  uco-oedIa — a* Liz  a*. — 9*zaoor /- 

9*1)  .CODE  (  3  *  3,1)/  S*  10,20013/ 

10, i i. cooec 3,  io,i)/  s.  1 1 ,z ooi */ 


DATA  CODEC!.  12,  1  ).CODE(  2.  1 2,  1  )  .CODE  1  3  .  12,1)/  S.  65.20008/ 

DATA  CODED  ,  13,1)  .CODE  ( 2  ,  1 3 , 1  )  »  CCOE  (3  .  13.1)/  6.  14.Z0008/ 

tnrr*  ctdei  i  rim  nrtroerzv  ta.dtcode ra r  rirurBr  1 5770003/- 

OATA  CODED.  15.1  )  .CU0EC2.  1 5.  1  )  .  CO  CE  <  3.  15.1)/  6,  16.Z0034/ 

niT.  cni7(  i. _ l^fclX.C00£12..  16.1)  .CODE  13  .  iAU  )  /  u  .1  7  .  70Q35/ - 

OATA  C33€(l.  17.1  ), CODE!  2.  1  7.  1  )  .CODE!  3.  17.1)/  6,  13.Z002A/ 

DATA  CODE!  1  .  18,1  )  .CODE (2 .  18 . 1  ) .CODE (3 .  18.1)/  6.  19,20028/ 

DAT  A  €£>•■>£  H  w-  IPr-l  — 19t-0  rGOOfel- ».")». -t  )  /-  -7r  -ePrZ-OOe7/- 

OATA  CODED.  20.1  ),C00E(2,  20V  l  ) ,  CO  DE  (  3.  20.  11/  7,  21.Z000C/ 

DATA  CDDE(  1.  21. 1 ) ,C3CE( 2.  21  .1  )  .C0DE(3  ,  31.1)/  7,  22  .20008/ 

Trmr'coo e <  i  .  22 n )  .cao'Erz.'  22.  i  ircoorra.  22;  13  /  7,  2 t. 200 it/ 

DATA  CODE!  I  *  23.1  )  .CODE  1 2 .  23 , 1  ) , CCOE (3 .  23.1  )/  7.  24,20003/ 


OATA  CODED  .  25 ,1  )  .C  JOE  (2  ,  2  5 . 1  )  •  CCOE  (  3  «  25,1)/  7.  26.Z0O26/ 
OATA  CODE!  1  •  26,  t  )  .CODEC  2.  26  ,  1  )  ,C  COE  C  3  .  2b. 1)/  7.  27.Z0028/ 


OATA  CODEC  1. 
DATA  CODED. 
DATA- COD  EC  I  . 
OATA  ODEC  1, 
OATA. .CODED 
OATA  CODEC  I. 
OATA  CODE  (  1  • 
PA TA-€8>6f  1  r 
OATA  CODEC  1  . 
OATA  CODED  . 
OATA  C-JO  El  I  , 
OATA  CODEC  1  . 
OA.IAXJDEU. 
OATA  CODEC  l. 
OATA  CODEC  1  . 

oata  eoocc  1. 

OATA  CODED  . 
OATA  CODEC  I. 

-rrrnT~toDc  n . 

OATA  CODEC  I . 
_OlAI3L  CODEC  1 . 
OATA  CODED  . 
OATA  CODEC  1, 
OATA-  CODEC  t  . 
DATA  CODEC  I. 
OAT  A  CODEC  1  . 

'OATAcaorc  i . 
OATA  CODEC  1. 
HAIAL^ODE-D  . 
OATA  CODEC  1  . 
DATA  CODED  • 
OATA  CODEC-  1  T 
OATA  CODEC  1  . 
OATA  CODED  . 
-rrATACJ3ECT." 
DATA  CODEC  1 • 

OATA  CODED. 
OATA  CO J  EC l . 
OAT  A-e3 
OATA  CODED  . 
OATA  ODEC  1. 


28.1 )  .COOEC2. 

29.1  ). CODEC  2. 

01*1  )  *C  ODE  C  2 * 

03.1 > .CODE  C  2  « 

34.1 )  .CODE ( 2. 
-35 r«l  .0006(2. 

36. 1 ) . CODEC  2. 

37.1  1  .CODE  <2  . 

39*1 ) *  CODE  C  2, 
an. i i .fnpp | / - 

41.1  )  . CODEC  2. 

42.1 )  .CODEC  2. 

♦art  ».eooe<-gT- 

44.1  ) .CODE  C  2 • 
45.  1  )  .  CODE  C  2 . 
45riT.C3DET2. 
47.  D  .CODEC  2  . 
Aa.DJ^CODEC  2. 
49  .1  )  .CODE C2  . 

50. 1 )  .C00CC2. 


28.1  )  .CGDEC3  .  26.11/ 

29 . 1 )  .COOEC 3.  29.1)/ 
30.17. CCOE IT.  30T1D7 

31.1)  .CODEC  3.  31.1)/ 

32. 1  )  .  CODE  13..  32.  il/ 

33.1) . CODE (3.  33.1)/ 
34.  1  ).  CODEC  3.  34.  1)  / 


7..  29.20024/ 
7.  ob, 2001  B/ 

urjr.mvroz/ 
6.  32,20003/ 
JU-  J13*Z_0Q1A/ 
a,  3  4.2001  8/ 
a.  35.2  0012/ 


36.  1 ) .CODEC  3  •  3b. 1)/  8.  37.20014/ 

37.1  1.CC0EC3.  37.1)/  8.  38.20015/ 

73.77  VC  DOE  C  3  .  38  .  T)  /  S.  79  VZTJ0T6  .T 
39.  1  ). CODEC  3.  39.  1)/  8.  40,20017/ 
AQ .X1.COOE  13a _lii.ll/  a.  41  .20028/ 
41.1). COOEC  3.  41.1)/  8.  42,20029/ 

42 . 1  ) . CODE  <  3 ,  42,1  )/  8,  43.2002A/ 


44.1  )«  CODE  13.  44.  1)/ 

45.1  )  .COPE  C3  .  45.1)/ 
4  6  .  T7»  COOFO  .  4  6  .11  r 
47,11 .CC0EC3  .  47.1)/ 
-43^71  *CC)  QE  L3-*  -48  *3 1  / 

49 .1  )  .CODE (3.  *9. 1 )/ 
50.1)  .CODEC  3.  50.1)/ 


B,  45.2  002C/ 
8*  4b. 2002 D/ 
o,  47VZ  0004/ 

а.  43,20005/ 

б.  .  4 9.23300 A/ 

8.  50.2  0000/ 

8.  51  .20052/ 


52,1 J .C3DEC2.  52.1 ).C0DEC3.  52.11/  8. 

53.1  ), COOEC  2.  53.  I ) .CODEC  3.  53,1)/  8. 
54  .TYTC  J0E  C2  .~54 .1 TTCTCOCTT.  55.1  7/  3T. 
55.  1 ). CODEC  2.  55,  1) .CODEC  3.  55.1)/  8. 
56*X3.^CQOE.CZ*-56..33*COQE(3.-~52x.33/-li. 
57. 1 ) .CODEC  2 .  57,1 )  .CODE C3  .  57.1)/  8. 

58.1  )  .CODEC  2,  58.  1  l.COOECJ.  58.1)/  8. 


53. 20054/ 
54.2  0055/ 
T5T7W247 
5i»  «Z 0025/ 

57.Z  0058/ - 

59 . 20059/ 
S9.Z  005A/ 


60.  1 )  .  CODEC  2. 
61  .1  )  .CODED  . 
-5'2VTTTCt!DF  C77~ 

63.1  ) • CODE  C  2, 

65. 1  ) .CODEC  2. 
66.1 )  .CODE  C2 . 

68.1  )  ,  CODE  12  « 
69.  I  )  .CODEC  2. 


OATA  CODEC  l,  71,1)  «C  30E  C  2  . 


OATA  CODED  . 
DATA  COOEC  1, 

ft  a  f  a--  t  t 

T  m  —  i  i  v 

DATA  CODEC  1. 
OATA  CODED  . 
3XTX  C33S  nr. 
OATA  CODEC  1. 

OATA  ODEC  1, 
OATA  CODE  C I  , 

DATA  CODEC  1. 
OATA  CODED  , 
T?«TA~C73FrT.~ 
OATA  CODED  . 


73.1  )  .CODE  12  , 

74. 1 )  .COOEC  2, 
7»rl  >  rcooece.  - 
76,  l  )  ,C00E<2» 

77.1  ), COOEC  2, 

"rr.nvcoDFrrr 

79. 1 )  . C  ODE (  2. 

81.1  )  .CODECzT" 

32.1)  .C JOEC 2, 


)  .CODEC  3 •  80.1)/  8.  81  .2004A/ 

)  .CODE ( 3 .  81.1)/  d*  _ 

i  ),*  CODEC  3,  bJ  ,  1  )  /  8.  04.20033/ 

I  ). CODEC  3.  05.  1)/  5.  bo. 20010/ 

) • CODE  C  3  »  bb, 1  )/  5.  87,20012/ 

)  .COOCiC-).  •  - E-rE-OO  1  7/ - 

),C0CfcC3.  08,  1)/  7,  30.20037/ 

)  .CODE  C3  .  59. 1  )  /  8.  1.2003b/ 

) \ CODE  C3 *  71.1)/  b\  72  ,20064/ 

>,C00EC3.  73,1)/  6.  74. 20068/ ~ 

[I.COOEC3.  74.1)/  3.  75.20067/ 

i Hewe-c -  75 r t- )■/  -9 -To. e ooee/ — 

,  )  <C  ODE  13.  78,1  )/  9.  77, 200  CD/ 

I  ). COOEC  3.  77,  1)/  9.  78,2 00P2/ 

nr VCCPEn T~7S~.lT/  9.  73.ZD0D37 - 

I  ) .CODE  C  3  ,  79.1)/  9.  30.20004/ 

.  UXOOEXJa  -AU3U  S.—& X.Z  0005/  — 
l  I  .CODE ( 3 .  61,1)/  9.  82  »  ZOODb/ 

1  >.  CODEC  3,  32,  1)/  9.  85.20007/ 


)  .CODE  13  .  71,1)/ 


I  ) .CODE  C  3  ,  79.1)/ 


84.  I  ). CODEC  2.  34.  I  I.C00EC3.  84.1)/  9.  85.Z0009/ 
85,1  )  .C0CEC2,  85.1  >.COOEC3,  85.1)/  9.  do.ZOOOA/ 

"S5 rn  fcODET  T.  ezvn  ;COJE  (  3 .  •  agVi  )/  S  .  ~9T  .~70ir5BZ' 

97.1 ) .CD0EC2.  87, 1 ).C0DEC3.  37.11/  V.  38,20098/ 


00012. 

_ 00012. 

00012. 

00012. 

- ooo  t-e 

00012. 

00012. 

- omriz: 

00012 

00012. 

000  12 

- 0001-2 

00012 
003 12' 

- 00012 

000  12 

_ 310032 

00012 

00012 

- 0001-2 

00012 

00012 

-  00012 

00012: 

_ 0Q032 

00012 

00012: 

000)2 

00012 

- ~00012 

00012 
00012 
00012 
000  12 

- 00012- 

00012 

00012 

- 00012 

000  12 

_ Q0Q12 

OOO  1  2 
00012 

- 00032 

00012 

00012 

- “00012 

00012 

_ _  Q 003-2 

00312 

00012 

- 00032 

00012 
00012 
— — 00012 
00012 

_ 00032 

00012 

00012 

00012 

03012 

- 00012 

OOO  12 

_ -00012 

00012 

00012 

- 00032 

00012 

00012 

- OOOT3 

OOO  t  3 

_ QODU 

00013 
0001  3 

00013 

00013 

- 5wn 

00013 


0-16 


JNCL  ASS  1FIED 


UNCLASSIFIED 


DATA  C3DEC  I 
DATA  fUFI  I 
DATA  OJEI  l 
DATA  CODE  I l 
DATA-  €OJ€«  I 
DATA  CODECI 
DATA  CODECI 
D  ATA~C37Er  r 
DATA  CODECI 
D  AI  A-  COXEi  l 
DATA  CODEC  1 
DATA  CJDcC 1 
DATA-ODg(  t 
DATA  CODE  Cl 
DATA  CODEC  l 
DATA-  'CTDE  U 
DATA  CODEC  I 
DAT  A  m  )F(  l 

DATA  CODEC  1 
DATA  OD £C  1 
PAT-4- €QD-g<  t- 
DATA  CODEC  I 
DAT  A  CODEC  1 
DATA- CODEC  I 
DATA  CODEC  1 
-DATA  CODEC  l 
DATA  CODEC  1 
OATA  CODEC  1 
DATA-  CODEC  I 
DAT  A  CODEC  1 
DATA  CODEC  1 
EO'ATA~OOr£(T 
DATA  CODECI 
DATA  CODEC  1 
DATA  CODEC  1 
DATA  CODEC  1 
DATA  CODEC  1 
DATA  CODECI 
OATA  CODEC  l 
DATA  CODECI 
DATA  CODEC  1 
DATA  CODEC  1 
DATA  CODECI 
DATA  CODEC  1 
OATA  CODEC  1 
DATA  CODEC  1 
OAT  A  CODE  Cl 
DATA  CODECI 
DATA  CODEC  1 
DATA  -CODSUL 
OATA  a  DEC  I 
CATA  CODECI 


DATA  CODEC  1. 
DATA  CODEC! 
XAT  A  CO  D  SIX 
OATA  CODEC  1 
OAIX  COJEt  L, 
DATA  CODECI  , 
DATA  CODEC  1 
•OAT- At  eggfh 
DATA  CODECI 
OATA  CODEC  l 
data  coorrr 

OATA  CODEC  t 
-D-AI  A  CODECI, 
DATA  CODECI 
OATA  CODEC  'I , 
-  OAT  A  CODE  fi- 
DATA  CODEC  1 
DATA  CODeCl, 
15ATA  COOETT 
OATA  CODEC  1, 
DATA_  CODECI 
DATA  CODEC  1, 
DATA  CODEC  1 

fV  *  ♦  »  A  V  —  *  1 

DATA  CODEC  1, 

DATA  codec  1 
TTjrrv^od  r 
DATA  CODECI 


09.  1) 
9f>-i  > 
91,1) 
9  2,1  > 


10.2) 
11.2) 

— rzrzr 

15.2) 
LA.?) 

15.2  ) 

16.2) 

■»— 17.&1 

18.2) 

19.2  1 

— Tnnzr 

21.2) 

22  .2  I 
2  3.2) 
2A.2  1 

eo.g) 

26,  2) 

27.2  ) 

23.2) 

29.2  ) 
-30.7) 

31.2) 

32.2) 
33,8* 

34.2  ) 

35.2) 

— 36;2) 

37.2) 

39.2  ) 

40.2) 

— 41 .2* 

42.2) 

43.2  ) 

44.2) 

45.  2) 

Aft  .2  ) 

47.2) 

43.2  ) 

49  v2  I 

50.2) 

51  ,2  > 
52.2T 

53.2  > 
5A.Z1 

55.2  ) 

56.2) 
r— 1 57.2) 

53.2  ) 

59.2  ) 

- 5TTT2T 

61  .2) 

62.2 ) 

63.2  ) 
64.21 

T--60.g  ► 

56.2) 

67.2  ) 
“5T.27TC 

69.2) 


71.2  ) 

72.2  ) 


-?3t2-)-.C- 


75.2  >  .C 
76.2 )  . £ 


.CODEC  2.  09 
.CODEC?.  90 
.C0DEC2,  91 
.CODE  C 2.  92 

.CODE <-g  . - *- 

.  CODEC  2,  2 

.CODE  C2  .  3 

TCOCJETr, - 5 

, CODE  C  2.  5 

.rongi?.  ft 
. CODE  C  2 ,  7 

•  CODE  (2  ,  0 

.code  <-e. - 9 

. CODE  <2 •  10 

•  CODE  C  2  •  11 
i CODE l 2,  12 
•CODE ( 2 .  13 

.CODEC  2. _ LA 

.CODE (2  .  15 
.CODE  C  2.  16 
. CODfrCg.  17 

•  CODEC  2  •  13 

•  CODEC  2,  19 

;CJDEC2,  20 
.CODEC  2.  21 
.CODE!?.  ?? 
.CODEC  2,  23 
. CODEC  2.  24 
.COOEia.  86 
.CODEC  2.  26 

. CODE  C2 ,  27 

•  CODEC  2,  2  8 
.C00EC2,  29 
.010212.  30 
.CODEC  2.  31 
•CODEC 2 •  32 
rCOOefg.  33 
.C0DEC2 ,  34 
.CODE C  2 ,  35 
, CODECS,  36 
,C ODE  C  2  ,  37 
.CODEC  2.  33 
, CODE  12 .  39 
.CODEC  2,  40 

.c doc  eg.  4i 

, CODE  C  2 .  42 
, CODEC  2.  43 
.(C3DET2T-** 
.CODEC  2.  45 
tCnriP<?t  46 
.CODEC  2,  4  7 
.CODEC  2.  49 
.CODE  C  2.  69 

•  CODEC  2.  50 

, CODE  (2  ,  51 

TC0DEC2,  52 
, CODE l 2,  53 
.C3QEC2.  5 A 
.CODEC  2,  55 

•  CODE  C2 .  56 

•  CODE  C  2 •  59 
.CODEC  2.  59 

•CODEC  2*  61 
.CODEC  2.-62 
•C0CEC2 •  63 
.COOEC 2.  64 


CODEC  2 
CODEC  2 


CODEC  2 


CODEC  2 
CODEC  2 


CODEC  2 


CODEC  2 


CODEC  3 
.cnaEiDi 
CODE (3 
CODE  C  0 
r€POE  C-3- 
CODEC  3 
CODE  (  3 
CODE  C  3 
COOEC  3 
.cnnEtJ- 
CODEl  3, 
CODE  13. 
.COOEC  3' 
CODEC  3 
CODE  l  3 
“COTJHTT 
CCOE  C3 
•CODEC  3 
CODE  C 3 1 
C0DEC3 
CO-DEC  -3, 
CODE  C 3 
CODEC  3 
CODE (3 
CODEC  3 
CODEC 3 
C  ODE  C  3 
C00EC3 
»<C?DE13- 
CODEC  3 
CODE  ( 3 
CODEC  3 
C0CEC3 
.rnnFi  i 
COOEC  3 
CCDEC3 
.cope*  3- 
COOEC 3 
CODE  13 
~T0WTT 
CODE  C3 
•CODEC 3 
CODE  C3 
CODE  C  3 
COOEC  3 
CODE  13 
CODEC  3 
CCTJETT 
CODEC  3 
CO  DELI 
CODE  (3 
CODEC  3 
TCCOCI3- 
CQDEC3 
CODE  1 3 
“CCDrTT 
CODEC  3 
CODEC-1 
CODEC  3 
CODE  ( 3 
▼C60fc<-3- 
C0CEC3 
CODEC 3 

CODE  (3 
C0DE13 
CODE  (3 
CODEC  3 
COOEC  3i 
CODEC  3 
CODEC  3 
CCDTTT 
CODEC  3 
•.CQDE-Li 
CCDEC3 
CODEC  3 

^  /N/Xf*  1  T 

vwuwTTJ 

CODEC  3 
CODE  (  3 
CCDEIT 
CODEC  3 < 


1)/  9 
.117  6. 

1) /  9 

1  )  /  1 3, 
.2-1/  It)- 

2) /  3 
2)/  2, 

~2  i  /  2 
2)/  3, 

•  21/  Au 
2)  /  4 
21/  5, 

ti!)  /  a 
21/  6, 
21/  7 
ZT  /  7 
2)/  7 

•  21/  a 

2)/  d, 
21/9 
rxH  7-10 

2  )/  10 

2)  /  10, 

-  21/1 1 
2)  /i  1 

•  2)/  11, 
21/11 
2)  /l  1 

Tg  )/  1  1 
2)  /  I  1 
2  )/  12, 
2)  /12 
21/12 
.2,1/12 
21/12 
21/12, 
.2) /*2 
21/12, 
21/12 
2)  /I2 
21/12 
.21/12 
2)/  12, 
21  / 12 
g)/  12 
2  1/12 
2)  /  12 
~ZT/  12 
2)  /  1 2 
•  212  12, 
21/12 
2)  /  12, 
2  »  /  1  2 
2)  /  12 
2  >/  12 
“2T7TZ 
2  1/12 
•2-1/12 
2)  /  12 
2  )/  1  2, 
r2*/t2 
2  1/12 
2)  / 12 

2  )/  12 
21/12 
2)/  12 
2)  /12 
<21/10 
2  )/  12 
21/12 
21/12 
2  )'/  1  2 
•  2)/  L2, 
21/12 
21/13 
fg-)/  I  J 
2)  /  13 
2  1/13 
“2T7I3 
21/15 


Z009A/ 
Z-QD 1  fl/. . 
Z009B/ 
Z  0002/ 

20037/- 

Z  0002/ 
Z  0003/ 
ZOO 02/' 
Z  0003/ 
Z0003/ - 
Z  0002/ 
Z0003/ 
20006/ 
ZOO 04/ 
Z0004/ 

2  0005/ 
ZOOO 7/ 
70004/ 
ZOOO 7/ 
Z0018/ 
2  0017/ 
ZOO  18/ 

zoooa/ 

ZOOb'7/'* 
Z  0068/ 
Z.OQ6CZ- 
Z0037/ 
Z  0028/ 
20017/ - 
ZOOl 8/ 
ZOOCA/ 
XOOCB/- 
ZOOCC/ 
ZOO CD/ . 
Z  0068/ 
Z0069/ 
2006 A/ 
Z  006B/ 
Z00D2/ 
Z  0od3/ 
Z00D4/ 
Z  OOP 5/ 
Z  0006/ 
Z00D7/ 
2006C/- 
Z006  0/ 
ZOOO  A/ 


47.700 


Z0054/ 


, Z0056/ 

,  Z  0057/ 

1 20064/- 

•  Z  0065/ 

.  Z0052/ 
TZ003T7- 
«  Z  0024/ 

•  Z0Q37/. 

,  Z  003  8/ 

.  Z0027/ 
.2-0020/- 
,Z  0058/ 

. Z0059/ 
.Z002B/- 
. Z002C/ 
.ZQQ5A/ _ 
,  Z0066/ 
•ZOO 67/ 
<-2-6  OOF /- 
, Z00C8/ 

.  Z  0  PC  9/ 

,  Z005B/' 

.20033/ 

.  Z  QQ34/. 

.  Z0035/ 

•  Z  006C/ 
.2006  0/ 
,Z  004 A/ 

.  Z004B/ 
7ZD0VC7- 
,  Z  0040/ 


00013) 
00  Q  1.3 
000  13 
00013 

. 9W0 

00013 

00013 

-  OOOTT 
0001 J 
00013. 

.  00013. 
00013 
oeo*  a. 

00013 
00013. 
00013 
000  13 
00013 
00013 
00013 

ooo-t-a 

00013 
00013 
00013 
OOOl  J 

.  00013 
00313 
00013 
00013 
00013 
00013 

. 003T3 

00013 
00013 
00013 
000  13 
00013 
00013 
00013 
00013 
000  15 
00013 
00013 
00013 

-000*3 

00013 

00015 

“000X3 
00013 
nnn  i  , 
00013 
00013 

■000*5 

00013 

00013 

000X3 

00015 

-  .00013 

00013 
000  15 
08  ft  Ha 
00015 
00015 
000X5 
00015 

_  00013 
00015 
00013 
00015 
00013 
00015 
OOOXT 
00015 

_0QO15 
00015 
00015 
000*  = 
00015 
00015 
000X3 
00015 


UNCLASSIFIED 


ONL_ASSlFIED 


DATA  CDDEt  1 
DATA  CODEC  l 

PiTA  C1JF(  I 

DAT  A  CODEC  1 
DATA  CDDECI 

DAT  A  CODEC  l 
DATA  CODS ( 1 
OTTA"  CODEC  I 
OATA  CODEC l 
DATA  COD  EC  U 
OAT  A  CODEC  l 
OATA  CODEC  I 

DATA  CODEC  I 
DATA  CO  D  SC  C 
"TAT  A  CODS  (I 
DATA  COD  SC  1 
DAT  A-  CODS  (  1 
DATA  C3DSC 1 
DATA  CO  D  SC  I 
»ATA~€0->S«  t 


DATA 

DATA 

DATA 

DATA 


DAT  A 
DATA 


COD  SC  I 
CODS  C » 
SC  l 
CO  DSC  I 
CODS. Cl  . 
CD  D  SC  1 
CODS  C  C 


OATA  COD  9<  I 


OAT  A 
DATA 


CODS  (  1 
CODSCI 


DATA  CODSC l 
DAI  A  CODDU1 
DATA  CODSCI 
DATA  COD  SC  I 


■%  i  * 

j  r 

DATA  CODSC 1 
DATA  CODSC  l 
0ATAC5D51T 
DATA  COD  SC  I 
O  AT  A  CODS  1 1 
OATA  CDDSC1 
DATA  QOS!  1 
OATA-  CDDSC  t 
DATA  CODSC  l 
OATA  CODSCI 
TATVCOOSn 
OATA  CODSC 1 

DATA  CODSC  l 
CATA  CODSCI 


-DATA  g>BO<  t 
D  AT  A  CODS  C  I 
OATA  CODSCI 


OATA  C0D3C  I 
DATA  CODSC 1 

DATA  cm  £11. _ 4 

OATA  CODSCI 
DATA  CODSC  1 
-PAT-4— CO ->S<  | 
OATA  CODSCI 
DATA  CODSC  I 
CATA  CODS ( l 


OATA  CODSC  l 
DAI  A-CDDS  tX 
DATA  CODSCI 
DATA  CODSC  l 
-DATAr  €0»0<» 
OATA  CODSC  1 
DATA  CODSCI 
"DATA  "COD  51  l 


OATA  CODSC 1 

OATA  CODSC  l 

CATA  CODSCI 
-  ^  <  - 

UFT  I  A  VUJ  I  1 

DATA  CODSC  1 
OATA  CODSCI 
"O'ATA'"C0D5C  I 
OATA  CODSC l 


T8 72T .CCDEXJ 
79*2) .CODEC  J 

80  .2  ). CODEC  J 

81  .2)  .COOEC3 
82.  2  J.CCCEC  S 


7T.2)  ,rnOET2  . 

79,  2 )  .CODE ( 2. 

8(1.21  .CODE  12. 

51. 2) . CODEC  2. 

32.2  > .CODEC  2. 

eee-c-e-t  83,e » .cooexa 

84. 2) . CODEC  2.  34, 2). CODECS 

35  ,2 )  .CODE  C2 . 

36.21  .CODEr?. 

87 .2 )  «  CODE  C  2 , 

33.21 • C2QE 12 . 

39.2 ) , CODEC  2, 

90.2)  ,C JDEC2 


85  ,2  )  .CODE  C3 

36.2)  .C0DEC3 

87.2) .C0CEC  3 
88 ,21 .CODECS 

89. 2) . CODEC  3 

90 .2 )  .CODECS 


■4  1  >  |  ^  A  r%  ./it  r%  %  *»  Q^C  a  -% 

ttTct  Tcj“Ct  X»  “I  TCt  rtrtTtTCra 


92 .2 ) .COOEC2. 
I,  I  )  .CODSC  2  . 
2  n  T  .  0005(2  . 
3,1  )  ,C  ODS C  2  , 


92,2  >, C0CEC3 
I  .1  )  ,C  CD  5  (  3 

“7mTrcunsx3 
3.1) .C0DSC3 


4.^  li.m  ns  t-2. 4.  Li.cnosco 

5.1)  . C  DCS  C2  *  5,1).  CCDS  C  3 

6.1) ,C3DSC2,  6.D.C0DSC3 

-A-t  +  -»-iC-DPS-C-2i - 7.-1  >»  CO-064  3 


S.  1  )  .CODSC  2  , 
9.  1  ) .CODSC  2. 
TO.ITTCDOSTZT 

11.1 )  .CODSC  2, 

12.1  1  .  CODS  12. 
13.  I  )  .CODSC  2. 

14.1  ) ,C JOSC  2, 

16.  I  ) .CODSC  2. 

17.1)  .C0DSC2  , 

19.1 )  .CODS ( 2^ 


8.1  )  .C00SC3 
9,1)  .CODSC  3 
lirm  .CCD5  13 

11.1)  .COD  SC  3 
12 .1 J.CQ2S (3. 
13.1  )  .C0DSC3 
14,  1  ),  CODSC  3 

+5| 

16,  1  )  .COD  SC  3 

17.1)  .CODS  C  3 


21,1 ). CODSC 2. 
^2.1  )  .CODSC  2. 


16.1) /  7 

17.1) /  7 
TB.D  r  7 

19.1) /  7 
t2ll.il/  7 

21.1) /  7 

22.1) /  7 


19.  I  1.C0DSC3 
20  iLL.C CD  SCO 

21.1)  .CODSC  3 

22.1)  .CCDS  C 3 
“ 3rn 

24.1  ) .COOS (2.  24, 1  ),C0CS(3.  24.1)/ 
25,  1  )  .COOSC  2,  25,1  )  .CC0SC3  .  25.1)/ 
2671)70057  Z7~267Y1.  tPOSTT.  26.11V 
27,1)  .C00SC2.  27.1  )  .CC0SC3  .  27.1)/ 
23»4J  tCGOSC2. -28tXX.03a8l3-»  -28.  1)  / 

29.1  )  .C0DSC2  .  29 , l  ) .CCDS (3.  29.1)/ 
JO.  1  )  .CODSC  2.  30,  1  )  .CCDSC  3,  30.  1  )  / 

32.  1  )  .CODSC  2  ,  32,1  )  .C0DSC3  ,  32.1)/ 

33. 1  ) .CODSC  2.  3  3,  l  ) .CODSC 3,  33.1)/ 
34.11  rC  1057  Z ,  TV  7TT7 C  ODS  (  37  3  471  17 
35.  I  )  .CJDSC  2.  35.  1 )  .CODSC  3.  35.11/ 
36t3-3_*x:.3DStD4 -36.31*XOOSClt  3b.  1 1/ 

37.1  )  .C0DSC2.  37,1  )  .C0DSC3  .  37.1)/ 

33.1  >«C  30SC  2,  33.  1),  CODSC  3.  38.0/ 

40.  1  )  ,  CODSC  2,  40  ,  l  )  .COO  SC  3 

41  ,1  )  .COOS (2 .  4  1.1)  .CCDS  C3 


42 

43.1  ) ,C IDS <2,  43.  1  ) , CO  OS  C  3 
A.  II  tCaoaC2.^_4  4_tll  .COO  813 

45. 1  ) .CODSC 2.  45.1) .CODSC  3 

46 .1  >  .C 0DSC2  ,  46 .1  )  , C COS  <  3 
■ST-iS— ATr-l-T-.-eeO-frC 

45.1  )  . C  30S  <2  «  43,1  )  , CO  CS  C  3 
49,1)  .CC0SC2,  4  9,1  )  .C  CD  S  C  3 


SI  .1  1  .C  JOSC ; 
32.  L3.CaOS.C-  . 
53 ,1  >  ,COCS  C2  , 
54,  l  )  .COO  SC  2. 

53.  t  )  .COD  SC  2  « 
57, C  ) .CODSC  2. 
1271  )  .2325X2 , 


■5D.1  V.CUD5T 
51  .1  )  .CCDSC3 


53 .1  ) .COOS  C 3 
54,  1)  .C00SC3 


56,11  .CC0SC3 
57,1) .COOSC  3 
227Tr.CC 


59,  I), COO  SC  2,  59,  1  )  »CCD  SC  3 
I  .1L-.CD0S  C.2_»_  6Q».l  1.CQC8I 

61. 1  )  .CODSC  2.  61  ,1  )  .CC0SC3 

62.1  ) .CODSC 2.  62,  1  ) . CO  OS  C  3 
“A^rH-rC  299-f-e-r- 63-rTl-r  E2D8  « 

64,  l  )  .CODSC  2,  64,  C)  .CODSC  3 

_65  U).C0DSC2.  65.1  ),CCO|C  3 

6"*,  l  )  .COOSC  2*  67*  l  )  ,’cODSC  3 


7B.2 )/l3 
79.21/13 
80.21/  13. 
61  ,21/43 
82. 2) /  13 


34.2)  /  I  j 

35. 2 ) /  13 
8  6  72)  / 1  3 
37,  2 )/  13 
88*21/13 

39.2) /  13 
90.21/13 


Tl  Til)  /■!  j 

92.7  )/  13 
1,1)/  6 
72  71)  7  5 

3.1) /  5 

4.1)  /  .5 

5.1) /  5 

6.1) /  5 
— )rl  >/- -6 


3.1  )/ 
9.1)/ 
r07TV7 
11,1)/ 
32* 13/ 
13.1 )/ 
14.11/ 


40.1) / 

41.1) / 

•~4271T7 


o 

43.1) /  6 
44*3  3/-  8 

45. 1 )  /  6 

46.1) /  3 


56 .1 ) /  V 

57. 1)  /  9 
7  9 

39.1) /  9 
11/  9 

51 . 1 )  /  V 
62,  1)  /  9 

rEE/ 
64,  1 >  /  10 
65, 11/  3 

b67Tr/“7 
o7» 1 )/  1 J 


7S  .200 rzr 
SO  »Z  0073/ 
81*20074/ 
82 . 20075/ 

83.2  00  76/ 
-3  4rZ  60-77/ 
85.20052/ 

36.2  0053/ 
37  ,2005  V/" 

33.2  0055/ 
32  . ZQQ5A/ 
90.20058/ 
i I .20064/ 


93.2  0002/ 

1  2  , 2001  B/ 

37ZOOUV7 - 

4.20001/ 

.  b.ZQQQa/ _ 

6.2  00  IF/ 

7  .ZOO! C/ 


00013' 

ooou; 

00013 
000  1  J 
0001  3‘ 
-OAO  1  3- 
00013' 
00013 
"0001  V> 
00014 
-00034' 
00014. 
000  14 


-00014' 
00014 
00014 
DOTH  4 
000  14 
0003  4 
00014 
00014 


9 , 2000  A/  00014 

10.Z000F/  00014 

l  1  .  Z00037 — - OOOl  4 

1  ,20007/  00014 

X3.ZD.Q38/ _  00014 

14. Z0005/  00014 

1 5 ,  Z  0001 /  00014 

A,  .  4  AArtr*  a _ AAA  a  a 

1  VJl  CvvvOt  WWW  I  ^ 

1  7 . Z  0  0  7 8/  00014 

13.20079/  00014 

1  >7200267 -  DOOI  4 

20.20033/  00014 

21  *_Z0025/ —  _ 0Q014 

22.20027/  00014 

23 , 20035/  00014 

£▼1  Lvuccr  vvtrrt 

2  5,2  0024/  00014 

26.20032/  00014 

27.2  0023/ - 00014 

2  3 ,2003  A/  000  14 

29  .20039/ .  _ 00014 

36 . 2  0009/  00014 

31  .  2001 4/  00014 


-32-1-2  OOIA/  - 
35.20015/ 
34,2001 9/ 
357200407 
36  .2004 1 / 
37 *2  OOFCvZ  . 
38 . 200F7/ 
39. Z  OOF  5/ 
-4Dr2  08697- 
41 ,20011/ 
42. 20077/ 

TJTZDOTr/- 
44.2  0036/ 

45  *  zao 10/ 

46.Z0003/ 
47, 20001/ 


49.20030/ 

30 ,20037/ 

"51720002/ 

32  .Z0085/ 
5a*ZQ0D0/_ 
54,  2  01  E 9/ 

55  » 200E0/ 

.  l  -\  *  f  .»  * 

JUIL  wTC  Ur 

5  7, ZOO  Dl / 

56.2  0036/ 
5r;2oo2cr 
60  .20087/ 
63*ZD0  34/ — 

5 2  . ZOOEI / 

6 J  »  Z  OOZ 0/ 
-5r»r2OO0-)y- 
67.20001 / 

2. 20006/ 

“6a  .70002/ — 

66.2  0002/ 


-OOOl  4 
0001  4 
0001  4 

0001  4 

000  1  4 

0003  4 
000  1  4 

000  1  4 

Art  A  *  * 

WWW|4 

0001  4 
00014 
000  14 
000  1  « 
0Q01  4 
000  1  4 
000  I  4 
-OAOT-i 
000  1  4 
003  l  4 

00014 

000  I  4 

00014 

00014 
0001  4 
-00814 
00014 
000  1  4 
‘DOTH  4 
000  I  « 
.  Q0Q3- 
0001  4 
000  14 
DOO-t- 
00014 
0001*. 
'XJD5I4 
0001  - 


a-18 


UNCLASSIFIED 


UNCLASSIFIED 


DATA 
DATA 
■»A"TA  ■ 
DATA 
DATA 


DATA 
DATA 
■DAT  A 
DATA 
DATA 


DATA 
DAT  A 


ODS(  I 

oaasi  i 

ODS(  i 
CODS ( 1 
■60>9«> 
CODS (  1 
COD  S( I 
TJTSTI 
CODS  Cl 
cai.sc  i 

CODS  (  1 
COD  SC  1 
ewe  t 
CODS  c  i 
CODSC  1 
“CDDSTI 
CDD  SC  I 
mas  i  i 
CODSC  1 
CODSC  1 
CP39C | 
CODSC  l 
CODS  (  1 


DATA  CODSC  I 
DATA  CODS  Cl 
DATA  CODSC  I  i 
DATA  CODS  C  1 
DATA  CODSC 1 

DATA  CODS  Cl 
QA.TA.CODS.C  1 
DATA  CODS  (  1 
DATA  CDD  SC  1 
OAT  A  €-ODSC  1 
DATA  CODSC  1 
DATA  CODSC  1 
DATA  CODS (I 
DATA  COD  SC  1 
DATA  CflDSC  1. 
DATA  CODS  C 1 
DATA  CODSC  I 
SATA  COD  D ( 1 
DATA  CODSC  1 
DATA  CODS  ( 1 
DATA  COD  SCI 
DATA  CODSC  1 

data 

DATA  CODSC  1 
DATA  CO  D  S  (  l 
DATA  'CODSC  1 
DATA  CODSC  l 
DATA  COD  SC  1 
“PAT  A  "OO'SC  1' 
OATA  CODS ( 1 


DATA  CODSC 
DATA  CODSC 
-DAT  A-  CODSC 
DATA  CDD3C 
DATA  CODSC 


DATA  CODSC 
OATA  CODSC 
OATA  CODSC 
DATA  CODSC 
--DATA  -CODS f 
DATA  CODSC 
DATA  CODSC 
“OATA  CODSC 
DATA  CODSC 
DUTA-CCD-S-C 
DATA  CODSC 
OATA  CODSC 
-t»A  TA-€-»>BC 
DATA  CODSC 
DATA  CODSC 
“DATA  CODSC 
DATA  CODSC 


11.2  ) 
12.2) 
■*8r8> 

14.2  ) 

15.2) 

16.2) 

IT. 2) 

ia»a) 

19.2) 
20.  2) 
iti  »e> 

22.2) 

23.2  ) 
24V2) 

25.2) 

■  2A.2  ) 

27. 2) 

23.2  ) 
e4.g> 

30. 2) 
31  .2  ) 
TO.  2  ) 

33.2  ) 
14.71 

35.2  ) 

36.2) 
-3->re  1 

33.2  ) 

39.2) 
43  .2  ) 
41  .2) 
42.21 

43.2  ) 

44.2) 
40ig» 

46.2) 

47.2  ) 

43.2  ) 

49.2) 

50.2) 

51.2) 

52.2  ) 
53»g> 
54.  2) 

55.2  ) 


57,2) 


5  5,2) 
60.2  ) 
-64  »  2-> 
62.2  ) 
63,2  > 
64.7) 
65,2) 
__i.J) 
2  .3  ) 
3,  3) 


10.3) 

11.3) 

-Vg.34 

1  3.  3) 
1  4.3) 
TTTTT 

16.3) 


CODSC  2 

caasu, 

CODSC  2 
CODSC  2< 

eaosre- 

CODSC  2i 
C0CSC2 

raa  sc  r 

0005(2! 

ranscz- 

C0DSC2 
CODS ( 2 
capot-fr 
CODS  (2 
CODSC  i 
'C0C5C  7i 
.CODSC  2 

cnasc-2. 

.CODS  (2 
CODSC  2 
C  O  OS  C  g. 
CODSC  2 
CODSC  2 

;cddsiz 

CODSC  2 
CODSC  2- 
CODSC  2 
CODSC  2 
iCOOSi-g- 
CODSC  2 
CODS (2 

TTacrsr? 

CODS  (2 
-COOS  (2- 
CODSC 2 
.C0DSC2 

copse  -g 

CODS  <2 
CODSC  2 
CODSC 2 
iCODS  (  2 
CODSC  2 
.CODS  (2 
CODSC  2 
cooaeg 
CODSC  2 
CODSC  2 
.COOST2 
CODSC  2 
.CODS  C-2. 
,C  JDSC  2 
.CODSC  2 
.  C  0D3  (  2“ 
CODSC  2 
.CODS  (2 


COOS  C 2 
2) .C0DSC2 
CODSC  2 
C  JDSC 2 


CODS  <2 
CODSC  2 

corysro 

CODS ( 2 
CODSC  2 
CODS (2 
CODSC  2 
C096C8 
CODSC  2 
CODSC  2 

rcoarnr 

CODSC  2 

COD  SC  2 
CODSC  2 

c  josc  a 

CODSC  2 
.C  JDS  (2 


CODSC  3< 
XPRS-CS. 
CODSC  3 1 
COOS  ( 3. 
-caeaea- 
CODSC  3 1 
COOS (3< 
rPDTIX 
CODSC  3 1 
XCPSC3  i 
CODSC  3< 
CODS (3  < 

•copqc  3 1 

COOS  C  3 1 
C0DSC3 . 
CODSC  3, 
CCDS (3 
■CQQSC.3, 
CCDS (3  < 
.COD  S (  3 . 

ce-osc  3i 

C0DSC3 

■  CODSC  3i 
to  as  (3, 
COO  SC  3 1 
cn  asc.3i 
.COD S (3  i 
CO  OS  (  3 1 
rCOOSO' 
CODSC  3  i 
COOS (3. 
;C0D5C3 
CODSC  3, 
rmsn 

CODSC  3. 
.CC0SC3, 
.CODSC  3 
C0CSC3, 
.C0DSC3 
CD05TX 

■  CCDS (3 

x.ao.sta, 

.CCDS  (3, 
.COOSC3 

cooper 

.COD  SC  3 
CODSC  3. 
.CODS  (3 
.CODSC  3 
lCQCS  (3 . 
>C  CD  SC3 
CODSC  3. 
ICPPSC3 
.C0DSC3 
.CCDS  (3 
rCODTTX 
CQDSC3 
.CD D-SX3. 
, CODSC  3. 
iCCCS  <3. 

e~  t  i 

I  V.  U  —  I  -» 

C0CSC3 
,C  OP  5(3 
“CD  C5T3' 
i  CCDS (3 
.COD  SC  3 
.CCDS  <3 
.CCDSC  3 
iCOO.dC  3 

■  CCDSC3 
.CODSC  3 

i  CCDSTT 
.CODSC  3 
uCCCS  t-3 
.C  CD  S  ( 3 

C0DSC3 
**  ■.  —  1 1 
.  J 

.CCDSC  3 
.CCDS (3 
iCPDSfT 
.  CCDSC  3 


2)/  4 
■2. 12 
2)  /  3 
2)/  3i 
«-»/--» 
2)/  4 
2  >/  4. 
21/  5 
2)/  S. 
-2-12.  S. 
2)/  S. 
2)/  6< 
2)  +  *r 
2)/  6, 
2)/  6 
2)/  7 
2)2  7 
212  7. 
2 )/  7 
2)  /  7 
■e  >/  ?■ 
2  )/  7 
21/  7 
"Z77- 8T 
2)/  a 
2  12  a. 
2)7  a 
2)  /  a 
g*/  a 
2)  /  a 
2)/  a. 
^r/_a 

2)7  a 

.217  a 

2)7  8 

21/  a 

ig)  7  t> 
2)/  9 
2)7  9 
2T7“5 
.2)7  9 
L.*.)  7.  9 
2)7  9 
2)7  9 
-g4-7--» 
2)7  V 
2)7  9 
2)/  9 
2)  7  * 
-2-17— ft 
.2)7  9 
2)  7  lO 
ig  fr/18 
2)  710 
2)7  10 

.■zr/ro 

2)710 
2-174  0- 
2)  7  10 

2) 7  10 

rg  TV-frO 

2  >7  10 
.21/11 
~2T/'VZ 
.2  )/  5 
.31/  l 

J  )/  3 
.3)  /  3 

3  1/ 
.3)/  4 

3)  /  5 
"TT7  6" 
.3)  /  6 
.3)7  ,6 
,3)/  7 
3)  7  6 


S  .Z000B7 

_ 1.20004/  ■ 

4 ,20003/ 
l.Z 00067 
tiWOli1 
7.20003/ 
8.Z000F/ 
~ 9 VZPPPA/ 
10.Z000A/ 

1  1  .  7QQQB7 
65,200107 
13.20002/ 

15.20011/ 

1 6.200387 
l 7.20001/ 

1 3  .ZOO  1 4/ 
19.7300?/ 
20,200077 
21  ,200557 
-ggrfrOe-Tg/- 

23.20056/ 

2  4. Z  0025/ 
Z~5YZP0P  7/ 
26  .2000C7 

27.2  QQ207 
23.Z002 87 
29.Z002F/ 

ao.zooec/ 

31 . Z 00017 

32. Z004E7 
33 .20000/ 
34.2 0049/ 
AS. .ZOO  AC/ 

36. Z004F7 

37,  ZOO AE/ 
30  .ZOOE6/ 
39,200917 
4  0. 2005 D7 

41  .2  OOOC/ 

42  >Z0 1 50/ 

4  q*2-Ql-CF7 
44.Z015F7 
45  .Z01  CE7 
46.20108/ 

47,  Z009B7 

48. Z000D7 
4J.Z0I5E/ 

50  «Z  0055/ 

51  .701517 
52 .20001 / 
53.Z00A  8/ 
54.20000/ 
55. Z 00897 
5b. Z  0 1347 
37TZP001/ 
58.2 OOA 97 

3  9.-Z02A6/ 
60.Z02A77 
51.20121/ 

-bg -1-20135/ 
63.20120/ 
54 , 20001 / 
bbTZPOOl/ 
12,20014/ 
—2  .2-00-01/  . 
3.20002/ 

4  .Z0001 / 
— 6.2  0006/ 
6,20001/ 
7.Z000F/ 
3TT0PTC7- 
9  .Z0001 / 

'33  .Z0005/ 

12.2  00  75/ 

1 3.20003/ 

1 4  .Z  0008/ 

1 5. Z00E8/ 


00014: 

.0001 A 

00014: 

00014: 

■80  0-1-4 
00014: 
00014 
OOP 
00014 
aop 
00014 
00014 
-888 
00014 
00014 
“OOP 
00014 
non 
00014 
00014 
-888 
00014 
00014 
bob 
00014 
nan 
00015 
00015 

00015 

00015 

“crop 
000  is 
QPPi  s 
000  is 

00015 

88015 

00016 

00015 


00016 

00015 


0001 i. 
000  It 
-8081-6 
0001  : 
0001  ■- 
POO 

0001. 
oqoi: 
0001  ■ 

0001  : 

AAA 

WWW  - 
0001 ; 
0001  : 


UNCLASSJ  MED 


DTmr~co3T5rrr 

DATA  O05(  It 
DATA  COOS  11.- 


DATA 

DATA 


OOS(  1* 
ODDS (I  • 


TTTTT 
19.3) 
ia.3i.c3ns<2. 


tcoottzt 

. C  ODS( 2. 


20,  3  ) 
21.3) 


•  CODS(  2  • 
•CODS (2. 


17.31  .CBW13T 

18.3)  «C0DS(3. 

19. 3) .  CO  OS 


XX — LA. 


20*3)  «COOS{ 3 . 
21.  3) •  COOS!  3. 


T77T7TV. 
18.31/10. 
lUUDi 


20 .31/10. 
21,31/10. 


nrzwrrar 
19 .20103/ 
2U.200QA/. 


21  ,20008/ 
22.2  0006/ 


00015! 

0001  5! 

QQfl  t  Si 


DATA  <80  91  li  23.20907/- 


DAT  A 
DATA 
DATA 
DATA 

O  AT  A 


DATA 

DATA 


CODS 1  1. 
CODS  J 1  . 

CJD5T  ir 

CODS 1 1  • 
COD  SI  1* 


23,  3) 
24,3) 
'25,31 


•  CODS!  2. 
.CODS  (2. 
'.CODS!  2. 


CODS ( 1 • 
COD  SI  1  . 


26.3  ) 

■2  7.33  .COOS12. 


29.3  ) 
29.3) 


.COOS (2. 


•  C0DSX2. 

•  CODS (  2  . 


23. 3)  .C00S1  3. 
24,3  )«CC0S(3, 

~Z5,3J7C  DOS  (37 
26.  3). COOS!  3. 

27.3)  .Cn0S<3. 


25.3) .C0DS(  J. 

29.3)  .CCDS13. 


23.31/10. 

24.31/10. 

26*  31/10* 
27 .31/11. 


28.31/11. 

29.31/11. 


24.20024/ 
26,20009/ 
VZOOOT7- 
2  7.2  0025/ 


00015! 
00015. 
Wl  6. 


29.20001/ 

30.203A4/ 


00015. 
00015. 
000 15. 
00015- 
.0001  Si 


DATA  -€3091  h-dftrShiWMl  e-r--36r 3)-.6eeS«  9-.-30.d-lV I-I-.  -31  .20010/- 


DATA  CODS(l  • 
DATA  03S<  1. 

TnrmrcoDS  c  i .' 

OATA  C03S1  1  . 

o-ALA-raasxu- 


31  ,3) 
3 j.  3) 
"33737 


•C JDS (2. 
•  CODS!  2. 
TCOT5ST2TT 


31,3).  CO  OS  (  3  • 
32  .3)  .COOSO  * 


1 .4) ,C DDS( 2 • 


J?*.4)*,CC0S  (X 

-  - - IX. 


31.3)/  11. 
32.31/12 


DATA 

DATA 


frATA- 

DATA 

O  AT  A 

DATA 

OATA 

QAIX 


OATA 

OATA 


CJDSd 
ODS(  I. 
-€9->S<t-r 
CJDSi  1. 
CODS  d . 

crrsirr 

CTDS1  I  . 
CODS  11  m- 


3?'.4  )/  X 

2..AUC0.QS1  2. _ 2.  AJ  .COOSO. _ 2.1U-2. 


3.4) 

4.4) 


.COOS (2 . 
.C0DS(  2, 


■  3-r6-*-,CtK>Sl  g.- 
6.4)  .C0DSI2. 
7.4  ).C00S<2. 


3  *4  )  .COOS  <3. 
4.4)  ,C0DS(3. 


32.Z001  1/ 
34 .20001 / 
I  lYr003B  A 
3,20002/ 

1  .2  0002-/. 


00015. 
000  15. 
06015. 


4)/ 
4)  / 


3. 

3. 


4.20001/ 

S.Z0007/ 


00015 

00015 

00015’ 

00015 

-dOOXii 


9r4*r689Sfai - M4/-4. - 6*20007/- 


ODS(  1. 
COOSd 


9. 

IX 


4  ) 
XI 


11 

12 


4) 

.4) 


•  COD SI  2. 

.cnps<2. 


ODS(  2. 
•  C30S  <  2. 


6.4)  ,C  OD  S(  3  •  6.4)/ 

7.4)  ,CODS( 3.  7.6)/ 

frVTT.CCOS  O. 

9.4)  ,CODS<  3  ,  9.4)/- 

10.41. CODS  13.  10.61/ 


6, 

5. 


■j  , 

6 1 


11.6)  .CCDSC3  • 
12.  6),  CODS  (  3. 


1 1 
12 


.61/ 
.6)  / 


7.Z000C/ 
a. z oooo/ 
J . 20001/ 
1 O  ,2001  A/ 


00015 

00015 

00016 


b 

6. 


1 2.20 001/ 
1 3,20006/ 


DATA  -€93S«  Ir-HrlHSWWOr  1  3 .4  )  tecOS«a r  1  S-.6 3/  t»»  33.2000-7/ 

14. 4) . COOSO. 

15.4  ).CCOS (3, 

16.4)  - 


00015 
00015 
O00 15 
000  IS 
-QQ0X5 
00015 
00015 


DATA 

DATA 

cnmr 


CODS (  i. 
COPSd  . 


DATA 


CT05(  IT 
CODS  (  I  . 


14,  6) 
15.4) 

T6.AT 


17.6) 


•COOS!  2. 
.CODS  (2, 

Tcncrsr tt 


16.6) / 
15.6)/ 


1  3.20030/ 
16,20001/ 


•COOS <2. 

data  emu*  -i-a«A)-.cans(/» 


DAT  A 
DATA 
PATA- 
DATA 
5  AT  A 


CODS  {  1  . 
COD  SI  1  . 

1  €0-591  Ir 
CODS (  1  . 
CDD31  1. 


1  9.  4  ) 
20  .4) 


.  CJDS( 2 • 
.COOS 12, 
t?t  i  6  )  . C  3001  2. 


17,4 ) » COOS! 3. 


19. 4)  , COOS! 3, 
20  .4  > .CCDS (3. 


19.6)/  a. 

20.1 )/  a. 


20.20062/ 
21 .20063/ 


22.6) 

23.6) 


.CODS  12. 
.CODS!  2 , 


ei . A».eoosi 3.-/1 .6) /  o«  WTtfme/ 

22.6) /  a. 

23.6) /  a. 


-000*5 

00015 

00015 


00015 
000  15 


22.6 I.COCS13. 
23.6)  .C0DS13. 


-000  H 


0*T)T-CDD5Tri~24V4r.C3D5C2.  24.  4  J,C0tX5l3.Z4,4)/  8. 
DATA  COD  3(1.  25.6  )  .C  0DS1  2  .  25  .6  )  ,  COOS  (3  .  25.4)/  a. 
DATA  CnjSt  1.^2&^A3>CaDS12^2<U6).Cnasl3^26.6)/,X.  e 


CODS!  1  . 
ODS1  1. 


27.4  ) 
28.4) 


•CJ0S12 . 
.COD  SI  2. 


•COOS! 2. 
•COOS! 2, 

-.coDsrz.- 


27 .6 ) .CODS  13. 
23.4)  .COOSI3. 


23.20016/  00015 

26 . 20001 /  00015 

25.2  0  TO  c/ - OOOT5 

2a. 200  OF/  00015 

2.2  002  7/ 


27,61/  9. 
28.6)/  9. 


28, 20026/ 
2  9.2002  A/ 


3)00X5 


r»»6  H-COeSl  9."  29.6  )/  9.  30.20001/ 

30 .6 )  .C0DS13 .  30.4)/  9, 

31. 6) . CODS! 3,  31 , 6) / 10. 


2.5)  *C GC  S(  2, 
3.3 ) .CODS (2. 


nsrx 

DATA 

DAXA 


DAT  A 
DATA 


CODS!  I. 
CODS!  1  . 

CJDS1 1  . 


tCOOOl  I 

5. 5 )  • CODS! 2. 

6.5)  «C OPS ( 2  . 


"3Z  .4  T  .  CCD5  IT,- 
33.4 ) .CODS!  3, 
.51.CCOS1.1.- 

2.5)  .CCDS  (  3  • 

3.5) ,  COOS  (3. 


T2TTT7TT. 
33.4)/  6. 
— 1.51/ — X»- 

2.5) /  2. 

3.5) /  4. 


CODS (  l  . 
COD  S(  l  , 


7,’5r;cacs<27' 

9.5) .CODS  12. 


■rw)  .COPSO. - 4 .  j-* /  4 

5,5)  ,CGDS(  3,  5.5)/ 

6  .5  )  .COOS  13. _ 6.5)/ 


31 .20028/ 
32. Z 0001/ 
3V.7omn  r~ 
1  4.200  36/ 
3.20001/ 
3 .20001/ 

4 .2  0001/ 


DATA  CODS! l  . 
DATA  OJ5(  I. 

cnrnr-coj'vn 

DATA  CD  J  31  1. 


DATA 
DAT  A 


coo- 

COO 


(1. 

<  1  . 


I  0,5). CODS  12. 

II  .5)  .C JDS (2  , 

)  5  )  .C  ODS  (. 
5)  ,CJDS(  2. 


.C  3D  S(  2  . 

-^ouisxx- 

18.3)  .C JDS(2 . 
19,  3)  ,COOS( 


7.5)  ;coos(t; — rrsrr 

8.5) . CO  CS (3.  8,51/ 

■  9.5)  ^ODSU  - - 


T~ 

5, 

6, 


■9r*  20003/ 
6,20004/ 
7,20001/ 


000  I  5 
00016 
000*6 
0001a 
0001  6 
1300 16 
00016 
QQQ  1 1 
0  0016 
00016 


10, 5). COOS! 3, 
11,51 .CCOS (3. 


10, 5)  / 
ll.a)/ 


6  , 
6, 
7  » 
7, 
7, 


1 J  .5  )  .CO DS(3.  13,5)/  8, 

1 4.5)  .CCDS< 3.  14,5)/  8, 
T57  5)  /  75." 

16.5)  .CCDS13 .  lb, 5)/  9, 
l  7.  SJ.. CCD-SIX. — 17.3)7  IQ, 
19,5  1. CODS (3.  18,51/10, 

I  9,  5)  .COD  S(  3,  1  9  .  b)  /  1  0  , 


■"8770002'/“ 

9  »  Z  00 OB/ 
XX^-ZOflLOX/- 
1  1  .20007/ 
12.20015/ 

i-3-.2-ooa*y- 

l  4,20000/ 
l 3  »  20029/ 
[672  0017/  “ 
I  7.20051/ 
-la.ZQQOl/ — 
19, Z  0030/ 
20  »Z003 l / 


OATA 
DAT  A 


CD  J  i(  I, 
CJJSC  1. 


»ata-€03‘>i t-r  ao.5)  icopaie-.  -eot-s-H-eees-i-D.  -g8rs-»z*«)i  2i->gooA-t^ 

21  ,5)  ,C0DS(3  .  21  , 3 ) /  1  0  , 

22. 5) ,C0DS(  3.  22,5) /  1  1, 

I  7CtrD5TT7~2 1,5  T/ 1  l. 

24,  5)  ,CODS(  J.  24,31/12, 

.aJ/X2, 

26.51  .CODSO.  26,5)/12, 

27.5) »CCJS(  3,  27,51/12, 

-C 56Tit-29t5 >-rC-Dl>S< -g-|  -g  t)  r5-»-rCe»9 »T  -*8-f5  t/~t 

CODS (  1  ,  29. 5) ,C3DS( 2.  29. 5 ) ,C00 S<  3.  29, 51/13, 

CDDSd.  30 ,5)  ,C JDS(2  .  30  ,5  1  ,  C  CDS  (  3  ,  30,5)/13, 

-  jr  rrciT5T7r~n  ,31  ;^T5Trr,“  jt.st/i  47 

OATA  C3DS ( I  •  J2.5 ) ,C JDS (2,  J2 , 5 ) , CO  OS < 3 ,  32,51/13, 


000*6 
00016 
00016 
“00016 
000  1< 
-oaaxt 
000 1 1 
000  la 
000*6 
000  I  < 
00016 
00017 
000  1 1 
OQjQI  c 
000  It 
000  16 


DATA  COJj( It 
-C3J.U 
CD  D  S(  I. 
CD JS ( l  , 


21.51  «C00 S(  2  . 

22. 5) . COOS (2. 
23  .5  J.CTID5  ITT 

24. 5)  .CODS( Z < 
25.5  I  .CODS  1: 
26,  51 ,C CD S( 2. 

27.5 )  ,C JDS  <2. 


22. ZOO  AO/ 
2J.Z  0007/ 
-JjTZOOO^T 
£  5  .Z0003/ 
2U.ZQJ0 1/ _ 

27,  Z0002/ 

28.  Z  0008/ 

g* .  eooo*/-- 

JO ,7001 J/ 
31  , Z  00 12/ 
“377200131/ 
34,20001/ 


■(MHH  ( 
0001 1- 
0001 1 
0001 1 
0  00  It 

oaoxt 

0001  t 
000  It 

-■oo<m 
ooo  It 
ooo  1 1 
“00017 
OOO  It 


Q-20 


UNCLASSIFIED 


OATA  ODSII.  1*6)  .COOSI  2.  1.6>.C00S(3,  1.61/  3, 


DATA  03SI  l 
OATA  CODS ( 1 


OATA  CODS  (  l 
DATA  CDDSU 


OATA  CODSU 


OATA  CODStl 
OATA  COD  S(  1 


•  9,5) .CD0SI2, 

9.6  >,C00SI3* 

SVfirV^VTMiiinrJV 

■  T-TT.4  FN.l  iT-T  A  F 

DATA  CODSU 
OATA  ODS(  1 


OA  TA  COD  SI  I 


DATA  CODSU 
OATA  ODSI  l 


OAT  A  CODS!  1 
OATA  CODSU 


DATA  CODS!  1 


OATA  ODSI  1 
DATA  CODSU 


DATA  CODSU 
DATA  COD  SI  1 


OATA  CODSU 


3.  6)  .COO  SI  2  .  3.6)  .COO SI  3  »  3.6)/  3 

A.S).C00SI2.  4.6),  CO  OS  13.  4.o>/  «, 


6.6) , CODS!  2, 

7.6 )  .C0CSI2 


6.6)  .COO  St  3 • 

7 .6 ) . COOS  13 


6.6)/  6 

7,6)/  6 


9.6)/  7 


11.6) , CODS!  2.  11*6)  .COOSI  3,  11.6)/  7, 

12 .6)  .C00SI2.  12  ,6  > .CCDS  13.  12.6)/  7 


14.6  )  .COOS  12 
IS. 6)  .COOSI  2 


14.6  > , COOS  I  3.  14.6)/  7 
IS. 6)  .COOSI3  .  15.6)/  7 


I  LTi-iri^,l  1 


17.6) .C00SI2*  17.6) • CCCS (3 .  17*5)/  7 


i  tirw.i  wmuvi  i 


19.6)  .C0CSI2  .  19.6 ). CODS  13.  19.6)/  6 

20. 6) . COOSI  2,  20 .6)  , COO  SI  3  .  20.6)/  a 


22. 6)  .COOSI  2  •  22.6)  .CC0SI3.  22.6)/  9 
23.6 >,C00SI2.  23.6) .COOSI 3.  23.6)/  S 


2S, 6), COOSI  2.  23.  6)  .COOSI  3.  25.6)/  9 


27.6)  .COOSI  2,  27,6)  .COOSI3  .  27. 6)/10 
28.6  )  .CODS  (2.  28,6  ).  COOSI  3.  28.6>/10 


30.6)  .COOSI 2.  30.6) .COO  SI  3 .  30.6)/10 

31 .6)  .COOS 12 •  31  .6 ) , COOS  13.  Jl,6)/10 


3  .20002/ 


4.20001/ 

5.20001/ 


7.2  0019/ 

8. 20001/ 


10.20031/ 


FAIItlLf  T4 


12.2  0030/ 
13.20039/ 


15.20038/ 
1 6.20037/ 


33.20006/ 


20.2O00F/ 
21 .20076/ 


23 . 200  09/ 
24.20001/ 


26  .ZOOEE/ 


28.Z01 07/ 
29 .2  0106/ 


31  .ZO10O/ 
32.ZO101/ 


IWPM  ft] 


33.6) .COOS (2.  33, 6 ) . COOSI 3.  33.6)/  7.  I  8. Z 0035/ 


SUBROUTINE  ERRMES  IPELBUF.0T8UF  .PELMA  X  ,  VRES.  ERRCNT) 


REAL  ESF 

COMMON  /G32BI T/  ******* 


CCMMCN  /  3  32  01  T/ MASK  132  ).  COM  ASK  1 32  ), LIB  IT  (32),  -  ZOI  T I  32 ) 


;>■  ana* 


»•**•••**•*«***«*•*  FILE  DEFI NI TI CNS  *•***•« 


CCVWCN/FI  LE S/ TERM .LPFI L» PELF IL» OTFIL.  ERFIL 


COMMON  /L.3GI  C/SEARCH  .01  AG 


k**********************  BEGIN  program 


OTELW«  (PE LMAX+32-t) /32 


C  REAO  AN  ERROR  FREE  LINE 


100  CONTINUE 

REAOI 1 .END* 600, ERR* 800)  INLNNO . I NELCT  .PELBUF 


Kct*  till] 


20  0  CONTINUE 


CTLNCT*DTLNCT* 1 
300  CONTINUE 


COUNT  DIFFERENCES  BETWEEN  TRANSMITTED  AND  RECEIVED  LINES 


00  4S0  I*  l.OTELW 

IFIOTBUFI  I)  .EQ.PELBUFI  I)  )  GO  TO  450 


WRITS!  6,4  10)  INLNNO.  OTLNND.I  .PELBUFI  I)  .OTBJFU) 
FORMAT  131  3.2212) 


Lj  1'JI 

_  K'MMljLiJ  Iwll 


00016. 


00016- 

00016 


00016- 

00016 


00016 


00016- 

00016 


00016- 

00016: 


000  16 


00016 

00016 


00016 

00016 


000  1 6- 


00016 

00016- 


00016 

00016 


00016 
nrnn  i  a 


00016 
000  16 


00016 
000  14 


UUUI  o 
00016 
nnn  t  . 


00016 

00016 


00016 

00016 


00016 


00016 

>00016 


000  17 

-ooaut 

00017 

00017 


000  17 
00017 


I-l-i'll 

l'T-T-1 


00017 


000  17 
00017 


00017 

00017 


UVU  1  f 

00017 

Ann «  t 


00017 

00017 


CO  440  3*1.32 


00017 
0001  7 


00017 


0-21 


JNCLASS I FIEO 


Inn 


unc  las  si  fi  eu 


MO  CONTINUE 

AAA  fktii* 


IF {  OTLNNJ—I  NLNNO)  200.100.560, 


COUNT  DIFFERENCES  S5T»«2N  GOOD  AND  ALL  WHITE  LINE 


00  350  I-l.OTELW 


rl'l1  Al'l^i  ia»- 

Sr*. 


IF  (.NOT.  JUG)  GO  TO  520 

•R  AT?.*6.!4  10  *  I  NLNNO.  OTLNNO.I  ,PEL0UF(  I  )  «0T8UF(  1  > 


9S0  CONTINUE 


SSO  READ! 1 » EM 0*600 .ERR* 800)  I NLNNO .1 NELCT  .PELBUF 
IF  I MCD ( I NLNNO— 1 .VRES ) . NE.O )  GO  TO  580 


GO  TO  300 


ES F*0. 

IF <ERRCNT.LE.O)  GO  TO  650 


650  CONTINUE 


700  FORMAT! ‘O NUMBER  OF  I NCCRRECT  PELS  **.110/ 


•OERROR  SENSITIVITY  FACTOR  «*.F12.4/ 

' _  *0  TOTAL  NUM3ER  OF  OUTPUT  LI.NES  PRCCcSScJ 


FE TURN 

800  CONTINUE 


*  *  .18) 


END 


IMPLICIT  INTEGER! A— 2) 


REAL  STT!  2.5)  .SUM.SUMSO 


CATA  MTT/0.26.48.  06.  19  2/ 


»»*«*****««**«*•**** BEG  IN  PROGRAMS 


FI NO  FILLEO  LINS  LENGTH _ 

LEN-MAXO  (  LENGTH!  J  )  .  M  TT  !  I  )  ) 


MIT wd 1 


ITT<l,I)»MINO(LgN.  ITT  11,1)  ) 
FINO  MAXIMUM  LINE  LENGTH 


ITT!  2.  I)  aMA  XO!  LEN.  1  TT(  2.1)) 


00017. 

00017: 


000 1 7- 
000  1  7. 


VWV  M  *  - 

00017. 


00017. 
0001  7. 


00017- 

00017 


00017 

00017 


00017 


00017 

00017 


00017 

00017: 


00017 


00017 

00017i 


00017 

00017- 


00017 


00017 

00017 


000  17 
0001  7 


m 


00017 


00017 

00017 


vvv  i  r 

►0001 7 
0001  7 


00017 
00017 
“00017 
00  01  7 


\  SO  FORMAT  (18) 

00017 

l  C  .  ... 

00017 

00017 
0001  7 

00018 


00018 
ooot  a 


00013 
Oia 


unclassified 


0-23 


UNCkASSXFIS? 


